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20.  Abstract  (Contd.) 

The  basic  cushioning  problem  is  assumed  to  be  one-dimensional  and  must 
therefore  be  solved  independently  for  each  of  the  three  orthogonal  directions 
It  is  recognized  chat  such  a formulation  is  a considerable  simplification 
from  reality;  however,  in  order  to  develop  an  optimization  scheme  that  can 
utilize  the  bulk  of  presently  available  data,  it  is  necessary  to  start 
from  this  {©int. 

The  most  recent,  design  developments  for  vibration  isolation  recognize  the 
i great  utility  of  tne  complex  modulus  of  a material  for  characterizing'  its 
' vibration  isolation  properties.  Therefore,  the  comflex  modulus  method  is 
the  basis  for  our  mathematical  formulation. 

} 

| A direct  mathematical  method  for  shock  isolation  is  being  used.  It  is  a 

j relatively  simple  design  approach  which  can  be  formulated  for  mathematical 
computations  by  use  of  the  typical  cushioning  materials  design  data,  which 
is  peak  acceleration  versus  static  stress  for  given  drop  heights . 

Based  on  the  data  available,  the  temperature  influence  on  materials  will 
be  utilized  in  this  program.  Ambient  temperature  variations  over  wide 
ranges  have  a significant  influence  on  cushioning  material  properties.  Un- 
fortunately data  for  such  variations  are  extremely  scanty. 
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FOREWORD 


This  report  prepared  by  the  Southwest  Research  Institute  under 
contract  DAAG17-73-C-0239  describes  a computer  program  for  the  least 
cost  design  of  package  cushioning  systems.  The  effort  was  part  of  a 
program  for  the  optimum  design  of  packaging  systems  sponsored  through 
the  AMC  GAD-E  program  under  project  no.  1E662703A090,  Design, 
Analysis  and  Optimization  of  Structures.  Requests  for  the  program  resum- 
ing from  this  work  can  be  directed  to  Earl  C.  Steeves  or  Frank  D.  Barca 
at  the  U.  S.  Army  Natick  Laboratories. 
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The  objective  of  this  project  was  to  develop  One  compute?  sof‘wa:'e 
for  a cushion  property  and  cost  optimization  procedure  for  the  design 
selection  from  available  package  cushioning  materials.  The  design 
problem  relates  to  the  use  of  existing  cushioning  materials  to  protect 
large  quantity  supply  items  from  shock  a^d  vibration  damage.  Current 
state  -of-the-art  design  procedures  and  criteria  were  used. 

The  General  Equipment  and  Packaging  Laboratory  (GEPL>,  Natick 
Laboratories,  has  the  responsibility  to  design  and  specify  shipping  pack 
ages  for  a large  number  of  supply  items  which  are  shipped  in  large  qua::. • 
tities.  Current  design  procedures  do  not  use  computer-aided  design 
(CAD)  techniques;  therefore,  in  the  interest  of  time  and  economy,  it  was 
desirable  to  incorporate  into  computer-aided  design  the  procedures  and 
criteria  that  constitute  the  current  state-of-the  -art.  Thus,  development 
of  new  design  procedures  was  r.ot  within  the  scope  of  work  of  this  project. 

The  approach  used  in  this  project  was  to  implement  a computer- 
aided  design  (CAD)  procedure  which  can  be  used  to  select  f rom  the  avail- 
able materials  data  files  the  material  or  materials  that  will  protect  the 
item  to  be  shipped  for  the  least  cost.  The  shipping  environments  were 
accounted  for  in  terms  of  shock  vibration.  The  temperature  effects  on 
the  package  cushioning  material  properties  were  allowed  for  in  the 
stored  data.  Thus,  the  CAD  program  op-imires  leas4:  co3t.  for  the  ma- 
terials that  will  provide  the  necessary  protection. 
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• * -f  ~v:lth  an  y effec 'ive  :•■.£-■  search  and  doveilcpimtfit  program;,  it  T/a? 
mpe-afve  to  do  a comprehr*?.. - Are  lite -a tu-  0 ytvdy  prior  to  wd  tkcng h 
v-  the  or  tiro  effort,  Svhll  ha  3 coudr.  cted  ->■  comprehen 9 i v.*e  lii-e  nature 
urvey  '•  oia'-c-a  tc  the  problem  of  the  ca-’alcpment  cf  op'bmi  ration 
educe  for-  design  of  package  cushioning,  See  Bibliography, 

A 3 listed  ir.  the  Bibliography,  Sv/rU  r£vis-*src-d  over*  1!4  publication  3 
-"  package  or  shier,  ir-g  do sign  procedure s and  ru-Torials  design  data, 
cone  of  -ns  puclioatlcn?  rt~"ie"vea  -vere  completely  a1::  r elated;  they  T-^rre 
mfited  from  the  Bibliography-. 

Theor  y ro;.q  p:;acf:ce  of  Cushion  Do  -f  gn  . jVM  t;  'byjk,  3.  Mufti"  ^Ai 
s prch ably  the  host  single  reference  book  -srhich  pr evidtv-j  the  most  recent 
nckago  cushioning  design  data,  materials  data..,  and  reference  a,  ‘I  he 
r.eor.-y  cf  package  cushioning  design  has  been  aQ-.-ar.ce d mere  rapidly  than 
f.e  materials  data  that  can  be  u?ed  in  a practice:  manner  /dtr.  the  theory.- 

Srv.kJ.  project  team  personnel  spent  many  hours'  of  telephone  eon- 
a-i th  people  associated  with  package  cushioning  materials  trying  to 
see"  tain  the  availability  and  tc  obtain  material?  data  related  to  both 
heck  and  vibration. 

Table  I illustrates  the  organization?  contacted  and  the  data  supplied 

The  Engineering  Design  Handbook  Package  and  Pack  Engineering^) 
rc  rides  information  about  both  shock  and  vifc ? aHcr  environments. 

The  MIL  - STD-81  OB,  Military  Standard,  Environmental  Test 
le-t'hod A-3',  provides  information  about  hc~/  packages  are  tested  to 
pecific  shock  and  vibration  condition  a.  Although  the  test  conditions  uo 
ct  -,-yj  ;■  tly  duplicate  what  a package-  vrculd  be  subjected  tc  in  actual  ship- 
ra.-nt.  the  test  conditions  ar.  3 intended  to  appr  croimate  actual  shipping 

O’  ci'L  j'V.O-'  ri  o 


Since  the  acceleration  levels  for  shock  for  package  cushioning 
snitc-rial  ? are  in  the  form  cf  par  ametric  curves,  consideration  w4->  given 
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BEST  AVAILABLE  COPY 


TABLE  I 

MATERIALS  DATA  CONTACTS 


Organization 

Material  Data 
Sought 

Data  Supplied 

Sinclair  Koppera 
Company 

Expanded  polystyrene 
(Molded  DYLITE®) 

Room  temp.  Gm  vs.  aa£* 
some  transmissibility. 

Nopco  Chemical  Div. 
of  Diamond  - 
Shamrock  Company 

Polyurethane 

Non*.' 

U.  S.  Forest 
Products  Lab 

Anything 

available 

None 

Du  Pont 
Company 

Polyurethane 

Nothing  outside  of 
that  in  304 

Package  Evaluation 
Lab,  Wright  - 
Patterson  AFB 

Anything 

available 

Only  what  is  in  304. 
Some  data  on  Air  Cap, 
SD-240.  Transmissi- 
bility data  being  devel- 
oped under  current 
contract. 

Dow  Chemicals 

Expanded 

Polyethylene 

Some  additional  data 
to  304 

Michigan  State 
Univ„,  School  of 
Packaging 

Anything 

available 

None 

Goodyear  Tire  Co. 
Foam  Prods.  Div. 

Urethane  Cushions 

None 

Owens -Corning 
Fiberglass  Corp. 

Fiberglass 

None 

Armour  & Co. 

Polyurethane 
Rubberized  Hair 

None 

Flextron 

Industries 

Curled  Hair 

None 

3M  Company 

F olyester 

None 

Kimberly-Clark 

Corp.' 

Cellulose  Wadding 

None 
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TABLE  I (Coriftd. ) 
MATERIALS  DATA  CONTACTS 


G-ganization 

Material  Data 
Sought 

Data  Supplied 

The  Williamson 
Company 

Polyvinyl 

Chloride 

None 

Union  Carbide 
Corp. 

Polyester, 

Polyether 

None 

B.  F.  Goodrich 
Chemical  Co. 

Polyurethane 

None 

Continental 
Felt  Co. 

Felt 

None 

Armstrong  Cork 
Company 

Cork 

None 

Chicago  Curled 
Hair  Co. 

Curled  Hair 

None 

Stearns  and 
Foster  Co. 

Cellulose  Wadding 

None 

Boeing  Aero- 
space Co. 

Polyurethane  Foam 

None 

(Classified) 

Sheller-Globe 

Corp. 

Polyurethane 

None 

GAF  Corp. 

Felt 

Not  useful 

National  Bureau 
of  Standards 

Anything 

available 

None 

Plastics  Tech- 
nical Evaluation 
Certer,  Picatinny 
Arsenal 

Anything 

available 

Numerous 

Reports 

i 

l 

Janesville 
Cotton  Mills 

Curled  Hair 
(Hairkore) 

None 

Blocksom  & Co. 

Rubberized  Curled  Hair 

Very  little  data 

Goodyear  Aero- 
space Corp. 

Fiberglass 

None 

T erne co  Chemicals, 
Inc.  (Houston) 

Polyurethane 

None 

to  determine  the  best  way  to  tabulate  the  voluminous  shock  aa'.a.  A’:  inter- 
polation procedure  was  developed  based  upon  "Digital  Computer  Program 
EMI  494  Aerodynamic  Interpolation"^). 

Since  there  has  been  much  concern  about  U3i:’g  package  cushioning 
materials  to  protect  against  shock  damage,  most  of  the  available  materials 
performance  data  for  protection  against  shock  are  found  in  MIL-HDBK-304, 
Package  Cushioning  Design^), 

The  report  "Vibration  Testing  of  Resilient  Package  Cushioning 
Materials"^)  provided  the  most  useable  vibration  data.  There  is  very 
little  vibration  data  available.  The  lack  of  good  frequency  response  and 
phase  angle  data  for  package  cushioning  materials  according  to  the  varying 
parameters,  i.  e. , 

. Density  {lb /ft ^ ) 

. Static  Stress  (lb/in.^) 

. Thickness  (in.) 

. Temperature  (°  F) , 

is  hindering  the  effective  use  of  the  CAD  program  that  was  developed. 

Some  vibration  data  were  obtained  from  the  report  "Resilient 
Cushioning  Materials"^).  The  vibration  data  for  package  cushioning 
needed  some  standard  form  of  presentation.  In  this  CAD  Program,  the 
vibration- related  parameters  for  each  material  that  were  standardized 
are: 


. Storage  modulus,  Er,  as  a function  of  temperature  and 
frequency 

. Loss  tangent,  tan  .*>,  as  a function  of  temperature  and 
frequency. 

Shock  data  were  obtained  from  the  report  "Test  Results  on  Air 
Cap  SD-240  Cushioning  Material"^).  Frequency  response  vibration  data 
were  not  available. 

For  those  materials  included  in  the  initial  ten  materials  cataloged 
that  did  not  have  available  actual  data  related  to  the  performance  of  the 
material  under  shock  and  \ibration  environments,  an  estimate  of  the  phy- 
sical parameters  was  ’made  and  so  indicated  ir.  the  materials  information 
tabulation  (Section  C). 
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It  is  recommended  that  shock  data  (i.  e. , peak  acceleration,  g) 
generated  for  use  with  the  CAD  Program  be  in  the  parametric  curve  form 
used  in  MIL-HDBK-304;  that  is,  with  the  parameters: 

. Drop  height  (in.) 

. Static  Stress  (lb/in. ^) 

. Material  thickness  (in.) 

. Environmental  Temperature  (°F) 

. Material  Density  (lb/ft^) 

It  is  recommended  that  vibration  data  (i.  e. , storage  modulus,  Er, 
and  loss  tangent,  tan  6)  for  use  with  this  CAD  Program  be  obtained  from 
frequency  response  curves  with  phase  angle  plots  for  the  parameters: 

. Material  Density  (lb/ft^) 

. Static  Stress  (lb/in.^) 

. Material  Thickness  (in.) 

. Environmental  Temperature  (CF) 

It  is  our  understanding  that  additional  materials  performance  data 
under  vibration  conditions  are  being  generated  tinder  contract  for  Wright  - 
Patterson  AFB,  titled  "Package  Cushioning  Materials  Testing.  " Data 
from  that  work  are  not  available. 

B.  Mathematical  Modeling  of  Cushioning  Material 
1.  Description  of  Problem 

The  basic  cushioning  problem  is  illustrated  in  Figure  1.  The 
outer  container  a3  well  as  the  inner  item  is  assumed  to  be  rigid,  and  the 
time -dependent  input  force  P(t)  is  uniformly  distributed  across  the  outer 
container  base,  and  its  resultant  acts  through  the  center  of  gravity  of  the 
isolated  item  of  weight  W,  We  also  assume  that  the  problem  is  one- 
dimensional, and  must  therefore  be  solved  independently  for  each  of  the 
three  orthogonal  directions.  It  is  recognized  that  such  a formulation  is  a 
considerable  simplification  from  reality;  however,  in  order  to  develop  an 
optimization  scheme  that  can  utilize  the  bulk  of  presently  available  data, 
it  is  necessary  to  start  from  this  point. 

At  the  outset  we  assume  that  we  have  the  following  statement  of 
the  problem.  The  weight  W and  its  dimensions  are  given.  Therefore,  the 
supported  area  A is  also  given.  The  loading  from  P(t)  is  given  in  terms 
of  a power  spectral  density,  or  RMS  level  and  discrete  spectrum  for 
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FIGURE  1.  CONCEPT  OF  CUSHIONING  PROBLEM 


vibration  excitation,  and  is  given  in  terms  of  an  initial  drop  height  h for 
shock  excitation.  Finally,  we  are  given  the  damage  criteria  for  the  item. 
For  shock  it  will  be  damage  fragility  rating  Gp  transmitted  to  it  at  the 
interface,  and  for  vibration  it  will  be  maximum  RMS  vibration  level  Yp 
and  possibly  an  associated  power  spectrum  Sp  of  acceleration  t’’  is- 
mitted  at  the  interface.  With  this  information  given,  we  seek  d suitable 
material  of  thickness  Tc  that  can  satisfy  the  above  criteria. 

It  is  recognized  that  some  of  the  literature  considers  various 
forms  for  the  shock  excitation  including  acceleration  pulses,  velocity 
pulses,  etc.  However,  most  of  the  design  information  appears  to  be  pre- 
sented in  terms  of  equivalent  drop  height,  and  since  a transformation  to 
this  parameter  can  be  accomplished  in  any  case,  we  use  it  as  the  most 
feasible  design  parameter. 

2.  Vibration  Isolation  at  Room  Temperature 

The  most  recent  design  developments^  recognize  the  great 
utility  of  the  complex  modulus  of  a material  for  characterizing  its  vibra- 
tion isolation  properties.  A complex  modulus  can  be  thought  of  as  exist- 
ing for  any  material  exhibiting  creep  or  relaxation  behavior.  Also,  by 
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using  the  complex  modulus  for  materials,  both  amplitude  and  phase  angle 
are  considered  in  the  mathematical  treatment  for  vibration  analysis. 
Therefore,  we  used  it  in  our  mathematical  formulation.  However,  it  is 
recognized  that  complete  data  on  this  parameter  are  not  available  for  all 
materials  to  be  considered.  Therefore,  it  has  been  necessary  to  estimate 
it  from  other  parameters,  such  as  static  elastic  modulus,  material  damp- 
ing, etc.  that  are  available.  Therefore,  consistent  with  notation  in 
Reference  1,  the  complex  modulus  is 

E*  = Er  + iEx  = Er(l  + i tan  6)  (1) 

where  Er  is  the  storage  modulus,  E^  is  the  loss  modulus,  and  tan  6 
is  the  loss  tangent. 

In  view  of  the  above  formulation  of  the  problem,  the  natural 
frequency  of  the  supported  item  in  the  cushioning  material  is 

<"n  = Ac  Erng/TcW  (2) 

where  Ac  is  the  supported  area,  Tc  is  the  cushioning  material  thick- 
ness, W is  the  weight,  Ern  is  the  storage  modulus  at  frequency,  UJn , 
and  g is  standard  gravity  (note  that  in  this  formulation  the  compliance 
contribution  from  the  cushioning  material  outside  the  isolated  object  is 
ignored).  With  this,  the  squared  magnitude  of  the  transfer  function  for 
the  material  is 

IhHs={['-^  %-]a+t“a6}'1  <3> 

where  uj  is  steady- state  excitation  frequency. 

If  P(t)  is  a steady- state  sinusoidal  input,  then  the  complex 
transmitted  acceleration  is 

Y(tu)  = H(tu)  x(UJ) 

where  x(UJ)  is  the  complex  excitation.  If  P(t)  is  a combination  exci- 
tation which  may  include  random  and  multiple  sine  components  (which  is 
usually  the  case),  then  it  will  be  characterized  in  terms  of  its  stationary 
acceleration  power  spectrum  Sj^uu).  In  this  case,  the  power  spectrum 
of  the  transmitted  acceleration  response  Sy(UJ)  is 

Sy(w)  = |h(U))|s  Sx(uj)  (4) 
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Equation  (4)  is  directly  f rom  l.q ..uticr  (3.  137),  page  99,  Benda" 
and  Piersol^®^,  Chapter  3 of  this  reference,  "Mathematical  Theory  for 
Analyzing  Random  Data"  provides  the  basis  and  derivation  for  Equation  (4). 

In  general  Equation  (4)  [i.  e. , Equation  (3.137)^'-']  is  obtained 
from  the  transformation  of  [i.  e. , Equation  (3.  134)'^)] 

00 

Ry{T)  = JJ  h(?)  h(n)  R*  (T+  S-Ttf  d?dri  (5) 

0 

where  R^t)  and  Ry{T)  are  autocorrelation  functions  of  the  time  dis- 
placement, T,  to  a complex- valued  frequency  domain  by  taking  Fourier 
transforms. 


The  latter  approach  was  used  in  most  cases,  since  the  power 
spectral  density  formulation  can  always  be  used  even  for  sinusoidal  input,, 
providing  that  the  measured  excitation  data  has  been  analyzed  with  a finite 
bandwidth  resolution  (which  will  always  be  the  practical  case),  and  this 
bandwidth  is  specified  with  the  data. 

The  design  problem  ;s  now  clear.  Upon  selection  of  a trial 
material  having  a given  modulus  Er  and  Ern,  we  .uust  solve  for  the 
thickness  Tc  from  Equations  (2),  (3),  and  (4),  with  all  other  information 
given.  The  effect  of  temperature  on  the  problem  is  discussed  later. 

The  CAD  Program  allows  three  options  to  the  users  regarding 
the  vibration  environment  specification.  These  options  are: 

(1)  MIL-STD-810B  Excitation  (i.  e. , sinusoidal) 

(2)  Multiple  Sine  Excitation 

(3)  Random  Excitation 

Vibration  Optimization  for  MIL-STD-E10B  Type  Excitation 

This  excitation  assumes  a single  sine  wave  is  applied  at  the 
natural  frequency  for  amplitudes  given  in  the  MIL-STD.  The  excitation 
at  each  i-octave  band  is  calculated  from  Equation  (2)  for 

Wj  = (61 


and 


x 


oi  = 


(7) 
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also 


A„  E 


rm 


ci 


uuf  W 


(8) 


The  smallest  Tcj  of  all  frequency  bands  that  satisfies  x0i  < xa^oW 
is  the  optimum  thick  less  value  we  seek. 


The  1 -octave  band  center  frequencies,  uuj,  are  stored  in  a 
DATA  statement  in  the  subroutine  VIBRTN  as  a^ray  OB  (I).  The  stored 
frequencies  are: 


1.,  2.,  4.,  8.,  16.,  31.  5,  63.,  125.,  250.,  500.,  and 
1000.  Hz.  These  frequencies,  Hz,  are  subsequently  changed  by  multi- 
plying by  2tt  to  obtain  the  frequencies  in  rad/sec.  These  frequencies 
were  chosen  based  upon  the  International  Standardization  Organization 
(I.  S.  O. ) Recommendation  R.  266,  Pieferred  Frequencies  for  Acoustical 
Measurements. 


Vibration  Optimization  for  Multiple  Sine  Excitation 


Single  or  multiple  sine  components  each  at  a fixed  amplitude 
and  frequency  are  the  excitation.  Octave  band  transfer  functions  and 
thicknesses  are  again  computed  from  Equations  (2)  and  (3).  For  each 
octave  band,  the  total  response  becomes  (conservative) 


toi 


(9) 


Again  the  smallest  Tcj  of  all  frequency  bands  that  satisfies  xQj  < xa^ow 
is  the  optimum  thickness  value  that  we  seek. 


Vibration  Optimization  from  Random  Excitation 


Excitation  power  spectre!  density  S(U)j)  must  be  specified  in 
1 -octave  frequency  bands.  Transfer  functions  and  thicknesses  are  again 
calculated  from  Equations  (2)  and  (3)  for  each  i-th  frequency  band.  For 
the  material  frequency  in  the  i-th  octave  band,  the  total  mean  square 
response  becomes 


and  the  RMS  response  is 


(10) 


(ID 
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Assume  for  a Gaussian  process  ‘ha* 


xoi  = 2. 5 oi  (i-:) 

Again,  the  smallest  Tcj  of  all  frequency  bands  that  satisfies  xQ^  < -‘<ai\ow 
is  the  optimum  thickness  that  we  seek.  Note  that  2.  f-  Oias  maximum  will 
be  exceeded  only  0.  62%  of  the  time. 

These  three  options  provide  the  user  the  ability  to  utilize 
whatever  vibration  environmental  data  he  has  available  or  to  use  typical 
vibration  environments  as  provided  in  the  sample  problems. 

The  random  excitation  option  provides  for  the  utilization  of 
the  most  comprehensive  data  that  can  be  obtained  and  should  be  used 
wherever  possible.  The  multiple  sine  excitation  and  single  frequency 
MIL- STD- 81  OB  excitation  provide  for  less  comprehensive  types  of  en- 
vironmental vibrations. 

3.  Shock  Isolation  at  Room  riemperature 

The  rigorous  mathematical  design  of  cushioning  for  shock 
isolation  is  in  a considerably  less  developed  state  than  that  for  vibration.  ' 
This  results  from  more  complexities  involved  with  time,  strain  rate, 
and  temperature  dependence  of  the  materials  at  large  deflections  normally 
considered  part  of  the  shock  isolation  problem.  Therefore,  we  used  the 
Direct  Method.  Again,  temperature  dependence  will  be  discussed  later. 

The  Direct  Method  is  a relatively  simple  design  approach 
which  can  be  formulated  for  mathematical  computations  by  use  of  the 
typical  design  data  shown  in  Figure  2.  Mary  such  curves  for  various 
materials  are  given  in  Reference  I,  The  curves  for  a given  material 
present  the  maximum  transmitted  acceleration  as  the  function 

Gm  = ?(W/A) 

for  selected  trial  thicknesses  Tc,  One  simply  needs  to  verify  that 

Gm  < gF 

for  the  given  conditions.  However,  in  order  to  incorporate  this  pro- 
cedure into  a digital  computer  program,  it  was  necessary  to  store  the 
data  for  these  curves  for  the  candidate  materials.  This  was  done  by  an 

appropriate  interpolation  scheme.  Here  G is  the  fragility  acceleration. 

F 


Discussed  in  Subsection  F,  Computer  Software, 
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PEAK  ACCELERATION 


c. 


STATIC  STRESS,W/A  (PS!) 


FIGURE  2.  A TYPICAL  SET  OF  PEAK  ACCELERATION- 
STATIC  STRESS  (Gm- W/A)  CURVES  FOR 
FIXED  DROP  HEIGHT  h. 
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Since  different  material*  have  different  range*  cf  optimum 
static  stress,  the  static  stress,  ag,  that  would  be  created  by  a particular 
shipped  item  (i.  e. , of  weight,  W,  and  area.  A)  has  to  be  calculated  by 
the  equation 

ag  * W/A  (13) 

and  then  checked  to  determine  that  the  materials  are  within  their  static 
stress  optimum  range. 

4.  Temperature  Influence  on  Material  Properties 

Ambient  temperature  variations  over  wide  ranges  have  a 
significant  influence  on  cushioning  material  properties.  Unfortunately, 
data  for  such  variations  are  extremely  scanty  for  all  of  the  materials  of 
interest  for  this  CAD  Program. 


Basically,  the  temperature  effects  on  the  complex  modulus 
of  a cushion  material  are  typical  of  that  shown  in  Figure  3.  The  effects 
are  relatively  insignificant  until  the  so-called  rubber-to-glass  transition 
occurs.  In  any  event,  provisions  were  made  for  the  storage  ai.d  retrieval 

j. 

of  vibration  data  (i.  e. , complex  modulus,  E ) and  shock  data  (i.  e. , maxi- 
mum acceleration,  Gm). 


The  con.ulex  modulus  form  is 


E^m 


1 1 + i tan  6 ?2(T)j 


(14) 


where  T is  varying  temperature  and  ^(T)  and  ?2(T)  are  the  functions 
which  describe  the  temperature  effects. 


The  maximum  acceleration  shock  isolation  form  is 


GmT  = Gmy3<T)  (15) 

where  ^(T)  is  the  function  which  describes  the  temperature  effects. 

We  generated  the  temperature  effects  on  the  complex  modulus  using  the 
functional  curves  for  5j(T),  ?2  T),  and  52(T)  shown  in  Figures  4 and 

5.  These  temperature  effect  curves  (i.  e. , ?j(T),  ?2(T),  and  y 3 (T ) ) 
are  only  estimates;  therefore,  any  use  of  data  from  this  CAD  Program 
should  be  used  with  caution  until  actual  temperature  effect  data  have  been 
cataloged. 


Points  on  each  of  the  Scale  Factor  Function  Curves  were  used 
in  the  computer  program  TDATAF  to  generate  the  temperature  effects  or. 
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Eg  ld(M/iocm) 


FIGURE  3a.  FREQUENCY  AND  TEMPERATURE  EFFECTS 

ON  COMPLEX  MODULI 


FIGURE  3b.  APPROXIMATE  BEHAVIOR  OF  Er  AND 
LOSS  TANGENT  OVER  A WIDE  RANGE  OF 
FREQUENCY  AND  TEMPERATURE;  SKETCHES 
ARE  BASED  ON  EXPERIMENTAL  DATA  FOR  A 
CARBON- FILLED  BUNA-N.  [Mustin,  G.  S.  J*1) 
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the  shock  (i,  e. , peak  acceleration,  Gm)  ar  d the  vibration,  (i.  e. , s o rage 
modulus,  Er,  and  loss  tangent,  tan  6)  data.  The  shock  and  vibration  data 
are  then  stored  in  the  computer  file. 

G.  Treatment  of  Fragility  and  Damage  Susceptibility  Criteria 

The  subject  of  fragility  or  damage  criteria  is  complicated  because 
of  the  way  in  which  different  items  fail  when  they  are  subjected  to  different 
environments.  Various  individuals,  depending  upor.  their  background  and 
resources,  advocate  different  concepts,  equipment  and  testing  procedures 
for  obtaining  fragility  ratings  for  items. 


The  determination  of  fragility  or  damage  susceptibility  criteria 
for  a specific  item  must  be  done  by  the  program  uaer  prior  to  utilization 
of  the  computer  program  developed  during  this  project. 

Fragility  rating,  normally  in  terms  of  the  peak  acceleration  of  the 
pulse  which  causes  damage  or  malfunction  of  the  item,  should  represent 
the  peak  of  the  main  pulse  (as  distinguished  from  peaks  of  superimposed 
high  frequency  components),  expressed  in.  multiples  of  gravitational 
acceleration,  g.  Fragility  ralings  for  individual  items  of  a group  should 
be  averaged  to  obtain  a mean  value  for  the  group. 

The  fragility  input  data  will  hav«.  two  forms: 

(1)  Those  items  that  are  not  repairable  and  discarded  when 
damaged 

(2)  Items  that  are  made  of  components.  These  items  can 
have  a range  of  damage  to  the  components. 

For  example,  the  fragility  input  data  might  be  in  the  following  form: 


Fragility 
Rating,  g 


Probable 

Percent  Repair  Cost  per 

Damaged,  % Damaged  Item,  $ 


55 

60 

65 

70 


0 

0,00 

5 

5,  00 

20 

25.  00 

80 

475. 00 
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D. 


Statistical  Form  of  Environment 


It  is  recognized  that  many  possibilities  of  shock  and  vibration  en- 
vironments exist  for  transportation  of  packaged  items.  The  modes  of  ship- 
ment include  (1)  Plane,  (2)  Truck,  (3)  Train,  and  (4)  Ship.  In  each  case, 
the  length  of  exposure  time  can  vary,  depending  on  the  details  of  the  package 
and  its  destination.  Therefore,  herein  we  suggest  a procedure  for  applica- 
tion of  average  and  maximum  environments  for  each  case. 

1.  Shock  Environment 


Statistical  information  about  the  typical  number  of  shocks  which 
occur  in  a given  transportation  environment  are  available  to  varying  de- 
grees of  detail  from  several  sources.  Figure  6 shows  a profile  of  shock 
excitation  measured  during  a typical  airline  flight^.  Data  of  this  type 
muse  be  further  reduced  to  an  even  more  concise  form  as  shown  in 
Figure  6b.  That  is,  by  accumulation  of  such  data  from  multiple  flights  of 
varying  durations,  in  the  future  a probability  density  for  shock  levels  must 
be  developed  by  fitting  a Gaussian  distribution  to  the  data.  Then,  the  en- 
tire set  of  data  is  described  mathematically  by 


P(gx) 


e -^x-U3)a/2o83] 
2tt 


(16) 


where  Ug  is  the  mean  shock  level,  gx  is  the  deviation  from  the  mean 
level,  and  <Ja  is  the  standard  deviation.  This  form  is  particularly  useful 
for  computational  purposes.  The  maximum  shock  expected  in  a given  en- 
vironment can  be  taken  as 

Kmax  = ^ C8  (17) 

Thus,  the  above  formulation  can  be  utilized  for  design  to  withstand  re- 
peated shocks  (assuming  superposition)  or  maximum  as  well. 


Since  all  of  the  available  shock  isolation  data  for  package 
cushioning  materials  are  presented  in  the  form  shown  in  Figure  2,  and 
since  probability  density  shock  levels  for  the  different  modes  of  trans- 
portation are  not  available,  the  shock  conditions  specified  in  MIL-STD- 
810B,  Method  516.  1,  Shock,  were  coded  into  the  computer  program, 
OPPACK.  The  shock  conditions  from  Method  5 1 6.  1 are  the  drop  heights 
based  upon  weight  and  dimensions.  The  weight  and  dimensions  which 
determine  specific  drop  heights  are  in  Table  II.  The  48-inch  drop  height 
was  omitted  from  the  computer  procedure  because  materials  data  for  a 
48-inch  drop  height  were  not  available. 

Thus,  it  is  not  necessary  for  the  OPPACK  Program  user  to  speci- 
fy any  shock  environment. 
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FIGURE  6a.  MAXIMUM  SHOCKS  RECORDED  DURING 
AIRLINE  TEST  SHIPMENT 


M.  a, 

FIGURE  6b.  SHOCK  AMPLITUDE  (g„) 
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TABLE  II 


-pr-EST 


TRANSIT  DROP  TEST  HEIGHTS  FROM 
MIL-STD-810E,  METHOD  516.  1 


Weight  of  test  item 

Largest  dimensions 

Height  of  drop 

and  case 

(inches) 

Notes 

Under  100  pounds 

Under  36 

A 

48* 

man-packed  and 
man-portable 

36  and  over 

A 

30  . 

100  to  200  pounds, 

Under  36 

A 

30 

inclusive 

36  and  over 

A 

24 

Over  200  to  1,000 

Under  36 

A 

24 

Pounds, 

inclusive 

36  to  60 

B 

36 

Over  60 

B 

24 

Over  1,000  pounds 

No  limit 

C 

18 

48-inch  drop  height  was  omitted  from  OPPACK  Program  because 

of  the  lack  of  materials  data. 

2.  Vibration  Environment 

Vibration  excitation  can  be  expressed  either  as  a discrete 
spectrum^)  as  shown  by  the  example  for  truck  transportation  in 
Figure  7,  or  by  c power  spectrum'^)  as  shown  by  Figure  8.  In  the  latter 
case,  the  data  have  been  accumulated  for  equipment  mounted  in  air- 
launched  missiles.  In  the  past,  the  tendency  has  been  to  express  trans- 
portation environments  in  terms  of  discrete  spectra  (Figure  7).  However, 
in  recent  years,  with  the  advent  of  more  compact  laboratory  analysis  and 
excitation  equipment,  presentations  of  data  on  such  environments  have 
been  shifting  more  to  the  power  spectral  form  (Figure  8). 

For  the  present  program,  available  data  were  reviewed,  so 
that  enveloping  power  spectra  could  be  established  for  each  type  of  en- 
vironment. Considerable  judgement  was  exercised  in  this  process,  to 
account  for  varying  power  spectra  at  different  speeds  in  transportation 
environments.  Again,  the  assumption  of  a Gaussian  distribution  about 
some  mean  levels  allowed  reduction  of  the  data  to  two  parameters, 
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figure  7.  Tiuck  Transportation  Vibration  Data 
(Kef.  2) 
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FIGURE  8 . Vibration  test  curves  for  equipment  instilled 
in  tit  launched  missiles  - equipment  category  Id) 
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mean  and  standard  deviation.  These  power  spectra  of  excifation  then 
formed  the  inputs  to  the  equations  presented  in  the  previous  sections. 

Since  most  of  the  package  cushioning  design  procedures  used 
in  previous  publications  on  the  subject  do  not  deal  extensively  with  the 
protection  of  the  packaged  item  from  vibration,  a widely  accepted  method 
of  describing  the  materials  data  relative  to  vibration  does  not  exist.  Also, 
a widely  accepted  method  of  describing  the  environmental  vibration  does 
not  exist.  Therefore,  because  the  vibration  environment  can  be  de- 
scribed in  relatively  simple  conventional  terms  (i.e.  , single  frequency 
sinusoidal  excitation,  such  as  MIL-STD-810B  excitation)  or  in  more 
complex  terms  (i.  e.  , multiple  sine  excitation)  or  in  the  most  complex 
terms  (i.  e.  , random  excitation),  the  computer  program  OPPACK  was 
written  to  allow  three  options  for  the  optimization  regarding  the  vibra- 
tion environment.  Those  three  options  are: 

. Single  frequency  sinusoidal  excitation,  i.  e.  , 
M1L-STD-810B  excitation  (IC  = 1) 

. Multiple  sine  excitation  (IC  = 2) 

. Random  excitation  (IC  = 3) 

The  input  environmental  vibration  data  for  the  MIL- STD- 81  OB 
excitation  (IC  = 1)  are  to  be  in  the  form  of  acceleration,  g.  at  specific 
frequencies,  rad/ sec*.  If  the  user  of  OPPACK  has  specific  environ- 
mental vibration  data  and  wishes  to  optimize  the  package  design  for  single 
frequency  excitation,  he  may  input  these  data  on  Data  Card  Number  Two 
(i.e.,  frequencies,  rad/sec)  and  on  Data  Card  Number  Four  (i.e,, 
acceleration  levels,  g,  for  the  specified  frequencies). 

If  the  user  does  not  know  what  the  environmental  vibration 
data  are,  he  may  use  the  following  frequencies,  rad/ sec: 

6.  283,  62.  83,  125.  6o,  314.159,  628,300,  1884.96, 

3141.59,  4398.23,  5654.87,  5969.03,  6283.  19, 

and  the  following  accelerations,  g,  which  correspond  to  the  previously 
given  frequencies: 

0.5,  0.5,  1.,  2.,  3.,  3.,  3.,  3.,  3.,  3.,  3. 


Note  that  the  input  vibration  frequencies  are  to  be  in  radians  per  sec 
(rad  aec). 
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The  Input  envir crime  -a I v ■ -•'•io.'.  data  fo"  Sr.c  multiple  si/  e 

excitation  (IC  = 2)  are  also  to  be  in  the  form  of  acceleration,  g,  at  spe- 
cific frequencies,  rad/sec. 

AI30,  if  *he  J3er  doe  s rot  know  what  tr.e  err--:  r or. mental  vitra 
tion  data  are,  he  may  use  the  previously  listed  accelerations  and  fre- 
quencies. 


The  input  environmental  vibration  data  for  random  excitation 
(IC  = 3)  are  to  be  in  the  form  of  Power  Spectral  Density  (PSD),  g^/Hz 
at  specific  frequencies,  rad/ sec.  If  the  user  has  PSD  data  they  a~e  to 
be  put  on  Data  Card  Number  Three  (i.  e,  , PSD,  g^/Hz,  for  the  specified 
frequencies  on  Data  Card  Number  Two),  If  '-he  user  does  not  krorv  V'hat 
the  PSD,  g^/Hz  data  are,  he  may  use  the  following  PSD  levels: 

3,66(10)-4,  5.  17(10)'  4,  1. 91(10)  4,  1.  19(10'r4, 

1.  13(10)-4,  5. 09(10)-7,  5.83(10)-6,  5,09(10)'7, 

5.  09(10)-7,  5. 09(10)-7,  5.09(10)-?. 

which  correspond  to  the  previously  given  frequencies. 

These  vertical  excitation  data  are  from  a truck  transporting  a 
LANCE  missile  at  19  to  45  MPH  over  a gravel  road  from  the  acceler- 
ometer mounted  on  the  missile  skid.  The  data  are  from  Contract  DA-31  - 
124-ARO-D-226. 

E.  Cost  Function  Considerations 


To  formulate  a function  that  expresses  the  total  cost  of  cushion- 
ing, packaging  and  shipping  of  a given  item  while  allowing  for  the  possi- 
bility of  some  damage,  to  be  covered  by  over  shipment,  requires  a 
functional  knowledge  of  all  the  cost  variables  in  packaging  design.  Many 
of  these  cost  variables  are  tangible,  such  as  cushioning  material  costs 
and  shipping  costs;  however,  some  are  intangible  such  as  costs  of  storage 
of  the  cushioning  and  packaging  materials  ar.d  some  phases  of  loading  and 
handling  during  shipment.  Since  we  are  mainly  concerned  with  optimiz- 
ing the  cost  function  for  a given  variety  of  candidate  materials  and  modes 
of  shipment,  many  of  the  intangible  variables  play  very  minor  roles  i 1 
determining  the  optimum  package,  since  these  costs  are  shared  nearly 
equally  for  all  possible  designs.  The  primary  cost  variables  that  were 
considered  in  the  cost  function  are: 

Cm  ~ cost  per  unit  volume  of  cushioning  material, 

Cc  ~ cost  of  the  exterior  container, 
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Cf  ~ cost  of  faDrication  of  the  cushioning  material  to  the 
specified  dimensions, 

Cp  ~ cost  of  packaging  of  the  item  for  shipment, 

Cs  ~ cost  of  shipment, 

Cj  ~ cost  of  the  packaged  item. 

These  cost  variables  can  be  grouped  into  four  main  categories;  cost  of 
materials,  cost  of  labor,  cost  of  shipping,  and  cost  of  allowable  damage 
replacement. 

1.  Cost  of  Materials 


The  cost  per  unit  volume  of  the  cushioning  material  enters 
the  cost  function  in  a direct  manner  when  the  required  volume  of  cushion- 
ing material  is  known.  It  is  often  the  case  that  material  prices  are  based 
on  a given  thickness  and  width  of  sheet;  in  these  cases,  the  waste  material 
must  be  accounted  for  in  the  overall  cushion  cost. 

The  ej.terior  container  for  the  purpose  of  cushion  analysis 
was  taken  to  be  a rigid  container.  Cost  and  fabrication  of  the  container 
were  estimated  for  the  sample  problems  from  limited  commercial  data. 
Provisions  were  made  in  the  program  for  the  user  to  input  container  data 
(i.  e.  . Input  Data  Card  Number  Sixteen). 

In  the  sample  problems,  the  specific  weight  of  the  container 
is  0.0017  lb/in^  and  the  container  material  cost  is  0.00232  $/in.^. 


The  cost  of  container,  $/jn.^,  is  the  cost  ox  the 
container  material  volume,  not  the  container 
volume. 


2.  Cost  of  Labor 


The  cost  of  fabrication  of  the  cushioning  material  to  the 
specified  design  dimensions,  as  available,  is  included  in  the  cost  analysis, 
as  well  as  the  cost  of  packaging  of  the  item  for  shipment.  These  items 
are  best  initially  expressed  in  units  of  time  since  the  price  of  labor  is 
generally  changing,  and  therefore  only  a single  dollar  per  hour  rate  is 
necessary  to  update  existing  data.  At  the  present  time,  we  are  using  an 
average  rate  of  $3.  00  per  man-hour.  This  rate  is  based  upon  data  from 
Area  Wage  Survey,  U.  S.  Department  of  Labor. 
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3.  Cost  of  Shipping 


The  cost  of  shipping  is  one  of  the  more  complex  cost  variables, 
in  that,  weight,  cube,  number  of  items  to  be  shipped  ard  mode  of  ship- 
ment can  play  equaLy  important  roles.  When  shipping  by  A-uck,  t:ain, 
plane,  ship  or  any  combination  thereof,  the  package  engineer  must  cor. side.' 
the  limitations  on  weight  and  cargo  volume  of  each  of  the  possible  modes  of 
shipment.  For  a shipment  that  requires  multiple  modes,  for  example,  by 
both  train  and  plane,  a least  cost  operation  must  consider  the  cost  in  each 
phase  of  shipment.  Of  course,  the  cushioning  package  will  be  designed  to 
withstand  the  environmental  conditions  imposed  by  all  required  modes  of 
shipment;  however,  the  least  cost  package  may  not  be  the  most  cost  effi- 
cient when  cube  and  weight  limitations  arise  in  shipping. 

4.  Cost  of  Damage  Replacement 

The  cost  of  the  item  being  packaged  enters  the  cost  function 
when  the  cushion  design  accepts  the  possibility  of  some  damage,  by  chang- 
ing the  item's  fragility  factor,  and  compares  the  excess  cost  of  the  items 
shipped  to  cover  the  damage  against  the  reduced  cost  of  the  cushioning 
package. 


Thus,  the  cost  function  is  a linear  sum  of  the  above-mentioned 
cost  variables.  The  general  cost  function  then  takes  the  form 


CF  = n [vrnCm+Cc(W,  Vc)+Cf(m,  Vc)+Cp(W,  Vc)  + fnCr] 
+ Cs  (n,  s,  W,  Vc) 


(IB; 


where  the  brackets  denote  a function  of  those  variables  and  n is  the  numbei 
of  items  to  be  packaged,  Vm  the  volume  of  cushioning  material  including 
waste,  W the  weight  of  the  package,  Vc  the  cube  of  the  package,  m de  - 
notes a particular  cushioning  material,  fn  fraction  of  items  allowed  for 
possible  damage,  and  s the  particular  mode  of  shipment.  It  should  be 
pointed  out  that  since  a different  cushioning  material  can  be  used  on  each 
of  the  three  orthogonal  surfaces,  the  expression  VmCm  can  be  expanded 
to  read 

3 

vmcm  = I vm;  cmi  U9) 

i = 1 


where  the  subscript  denotes  the  three  possible  surfaces.  Likewise,  the 
possibility  of  multiple  modes  of  shipping  can  be  functionally  expressed  as 


4 

C3  (n,  s,  W,  Vc)  = £ Cg(n,s,W,Vc),  (2C) 

S=  1 
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The  value  of  cushioning  material,  Vm,  in  itself  is  a func- 
tion of  the  cushioning  material  properties,  fragility  factor  of  the  item, 
and  the  shipping  environment. 

F.  Computer  Software 

The  actual  implementation  of  the  FORTRAN  corr\puter  software 
into  the  Natick  Laboratories  UNIVAC  1106  Executive  8 System  was  the 
culmination  of  all  of  the  work  on  this  project. 

The  Computer  Aided  Design  (CAD)  of  package  cushioning  was 
accomplished  through  the  FORTRAN  language.  FORTRAN  permits  the 
use  of: 


. Mathematical  expression 
. Data  file  input/output 
. Procedural  subroutines 
. Batch  and  remote  processing. 

Thus,  a main  program  is  used  to  call  and  manipulate  the  subroutines. 

The  subroutine  programs  were  structured  so  that  modifications  can  be 
done  with  a minimum  amount  of  difficulty.  The  use  of  subroutines  permit- 
ted the  segmented  development  of  the  complete  package  cushioning  de- 
sign computer  program. 

1 . Lagrange  Interpolation  of  Data 

Since  we  knew  that  a large  number  of  data  files  were  going 
to  be  required  and  that  interpolation  of  the  data  contained  in  these  files 
was  necessary,  we  have  developed  and  implemented  a subroutine  and 
function  for  interpolation  and  extrapolation^.  They  are  the  following: 

. LAGINT  (i.  e. , Lagrangian  Interpolation  Subroutine) 

. FLAGR(i.e.f  Lagrangian  Interpolating  Function) 

The  interpolation  programs  are  designed  to  save  consider- 
able computation  time  in  generating  data  by  interpolating  a set  for  a more 
dense  set  so  that  a realistic  data  is  realized.  The  mathematical  inter- 
polation scheme  used  is  that  of  a three  point  Lagrange  with  a fairing 
over  a four  point  set. 

Program  Theory  for  Lagrange  Interpolation 

Given  a set  of  matrices  Y(k),  we  wish  to  interpolate  this  set 
to  obtain  a more  dense  set  T(k).  The  method  of  interpolation  to  be  used 
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is  that  of  Lagrange  by  passing  a parabola  from  ‘i.e  right  ar.d  from  he  le: 
and  averaging.  For  those  points  in  T(k)  which  are  not  spanned  by  at  least 
two  points  on  either  side  by  the  set  y(k),  a single  parabola  will  be  used  at 
these  points.  Higher  order  polynomials  have  been  tried  and  have  failed  to 
yield  any  increase  in  accuracy  and  have  often  caused  undesirable  oscilla- 
tions. 


LaGrange's  interpolation  formula: 

M (k-kj) « • ’(k-kj_i)  (k-k^+i)^  ■■  . (k-km) 

T(k)  = .I^Yfki)  (k..kl),  . - (ki-kj.!)  (ki-ki+i).  • - (ki-km) 

Consider  the  five  points  shown  below,  where  the  0 denotes  values  from 
the  Y(k)  set  and  the  X denotes  the  desired  value  for  the  T(k)  set. 


Yi-1 

Yi 

r Yi+l 

Yi+2 

0 

0 

X 0 

0 

ki-l 

ki 

k ki+ 1 

ki+2 

Using  Lagrange's 
points  ki_i,  kj, 

interpolation  formula  for  a parabola  from  the  left  (use 
ki+l> 

nk)L 

1 

• iH 

>- 

II 

(k-kj)  (k-ki+i) 

(ki - 1 “ki>  (ki-l*ki) 

+ Y(ki) 

(k~ki_ l ) (k"ki+l) 

(hi-ki-i)  (ki-ki+l) 

+ Y(ki+l) 

(k- ki_ l)  (k"kj) 

(ki+ 1 “ ki - 1 ) (ki+l‘ki) 

and  a parabola  from  the  right  fuse  points  kj, 

(k- ki+ i ) (k-ki+2> 

= Y,,<i)  (ki-k;+i>  (ki-kl+2)  + 


ki+l> 


Y(ki+l) 


k:.+2> 

(k-kj)  (k~ki+2) 
(ki+i-ki)  (ki+i  -ki+2/ 


(k-k4)  (k-ki+1) 

+ Y(ki+2)  0<i+2-ki)  (ki+2-ki+l) 


(23) 


Thus,  if  the  desired  point  lies  between  two  adjacent  points,  we  average 
the  parabolas  as 
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r(k)  = HHk)L  + nk)R]  . 


(24) 


The  program  is  set  up  to  interpolate  a single  set  of  input  matrices  or 
input  two  sets,  scaling  the  second  set  by  a scalar  and  adding  it  to  the 
first  set,  then  interpolating  the  combination. 

Copies  of  the  main  program  (i.  e.  , TEST),  the  subroutine 
LAGINT,  and  th*  function,  FLAGR,  are  shown  in  the  Appendix.  . 

2.  Computer  Aided  Design  (CAD)  with  Program  OPPACK 

The  following  pages  identify  the  main  driver  program  and 
subroutines.  The  usage  of  each  subroutine,  other  subroutines  called, 
and  a glossary  of  variables  are  specified. 

Table  III,  Glossary  of  Variables  for  OPPACK,  contains  the 
alphabetical  listing  and  description  of  the  FORTRAN  variables  in  the 
Computer  Program  OPPACK. 
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TABLE  III 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


A 

- Support  area  of  item  (sq  in.). 

A (NPTSG,  NPTSB,  NPTSA) 

- Input  table. 

AL(I) 

- Array  of  longest  dimensions  for  each 
face  of  package.  (CDPRO  subroutine). 

AL(I) 

- Area  of  the  perpendicular  face  of  the 
package.  (COSTMT  subroutine). 

ALF  (NPTSA) 

- Vector  of  independent  variables. 

ALI(I) 

- Actual  dimensions  ol  package. 

ALL 

- Item  length  + container  and  cushion 
thickness. 

AT 

Environmental  temperature. 

BETA (NPTSB) 

- Vector  of  independent  variables. 

Cl 

- Cost  of  material  on  face  one. 

C2 

Cost  of  material  on  face  two. 

C3 

Cost  of  material  on  face  throe. 

CI2 

Contains  the  minimum  cost  between 
the  materials  on  face  one  and  face  two. 

C13 

Contains  the  minimum  cost  between  the 
materials  on  face  one  and  face  three. 

C23 - 

Contains  the  minimum  cost  between  the 
materials  on  face  two  and  face  three. 

C123 

Contains  the  lowest  cost  of  the  three 
materials. 

CA  (I,  J) 

- Material  cost  and  property  matrix.  Con- 
tains cost  of  material,  cost  of  fabrica- 
tion, cost  of  packaging,  safe  low  temper- 
ature, low  and  high  static  stresses,  and 
specific  weight. 

TABLE  III  (Contd.) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


CAXIS  (I,  1) 


Cost  of  the  packaging  material  for 
face  one. 


CAXIS  (I,  2) 


Cost  of  the  packaging  material  for 
face  two, 


CAXIS  (I,  3)  -------  Cost  of  the  packaging  material  for 

face  three. 

CAXIS  (I,  J)  - - - - - - - Coat  of  packaging  material  for  all 

three  faces. 


CD  (I,  J) 


Container  cost  and  property  matrix. 
Contains  specific  weight  of  container 
and  cost  of  container. 


CF  (I) 


Array  containing  cost  of  fabrication 
to  specific  dimensions. 


CFF  - --  --  --  --  Cost  of  fabrication. 


Cl---------  - Cost  of  item.  .. 


CM  (I) 


Array  containing  material  cost. 


COST  - --  --  --  --  Total  cost. 

CP  (I)  - --  --  --  --  Array  containing  the  cost  of  packaging. 

CPP  - --  --  --  --  Cost  of  packaging. 


Cost  of  shipment. 


Cost  of  shipping  the  package. 


CVC  - --  --  --  --  Cost  of  material  for  corner. 

DH  ---------  - Calculated  drop  height. 


DHH(I) 


- Drop  height. 


Drop  height  longest  length. 
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TABLE  III  (Contd. ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


DHW  (I)  - --  --  --  - Drop  height  upper  weight  limit. 

DII  ---------  - Array  of  drop  heights. 

DLH  - --  --  --  --  Dummy  parameter. 

DL(I)  - --  --  --  --  Change  in  package  dimensions  along 

each  face. 

DRPH  - --  --  --  - Actual  drop  height  - stored  on  file. 

DWB  - --  --  --  --  Weight  added  by  the  addition  of  a 

bearing  board. 

ERI  - --  --  --  --  Modulus  at  center  frequency. 

ERJ  - --  --  --  --  Modulus  at  environmental  frequency. 

F(I)  - --  --  --  --  Table  of  dependent  variables. 

F2  (I)  --------  - 1-D  array  of  interpolated  accelera- 

tions. 

FE  (I)  - - Work  - vector. 

G - --  --  --  --  - Interpolated  acceleration. 

GAM(NPTSG)  ------  Vector  of  independent  variables. 

GM  - --  --  --  --  Maximum  G-allowable  (ft/sec/sec) 

(CDPRO  subroutine) 

GM  - - - - - Fragility  limit  (acceleration). 

(SHOCKE  subroutine) 

GMF(I)  - --  --  --  - G-levels  for  each  percent,  damage 

allowable. 

11- --------  - Array  subscript  for  material  used  on 

face  one. 

12- --------  - Array  subscript  for  material  used  on 

face  two. 
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TABLE  III  (Contd. ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


13---------  - Array  subscript  for  material  used  on 

face  three. 

IC  - --  --  --  --  - Procedure  code. 

IC=1  - --  --  --  - MIL- STD- 81  OB  excitation. 

IC  r 2 - --  --  --  - Multiple  sine  excitation. 

IC  = 3 - --  --  --  - Random  excitation. 

IGO  - --  --  --  --  Code  to  determine  type  of  interpolation. 

II  (I)  ---------  Contains  array  positions  of  optimum 

thickness  for  each  of  the  three  faces. 

IITM  - --  --  --  --  Item  number. 

IJE  - --  --  --  --  Deletion  code. 

ITEM  - --  --  --  --  Item  number. 

ITEMP  - --  --  --  - Number  of  temperatures  considered. 

MATOP(I,  K)  ------  Optimum  material  for  each  face. 

MATOP  (I,  K)  = F (G-level,  axis). 

MATSC(I)  -------  Material  code. 

l'C(I)  --------  - Contains  material  code  for  each  of 

the  three  faces. 

MIC  - --  --  --  --  Maximum  iterations  for  drop  height 

weight  convergence. 

MITEM  - --  --  --  - Item  number. 

MOMJ  Number  of  input  environment  fre- 

quencies. 


MOMS 


Number  of  frequencies  stored  on  the 
vibration  file.  (CDPRO  subroutine) 


TABLE  III  ( Co::. '-<3, ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


MOMS  - Number  of  frequencies  stored  on  data 

files  (VIBRTN  Subroutine). 

MTC  - --  --  --  --  Material  code. 

MTS  - --  --  --  --  Number  of  temperatures  stored  on  the 

vibration  file.  (CDPRO  subroutine) 

MTS  - --  --  --  --  Number  of  temperatures  stored  on 

data  file.  (VIBRTN  subroutine) 

MXI(I,  J,K)  -------  Array  containing  the  number  of  thick- 
nesses included  in  the  dynamic  thick- 
ness array. 

MXIT(I,  J,  K)  ------  Number  of  thicknesses  stored  for  each 

axis  and  temperature. 

NMATS  - --  --  --  - Number  of  materials  to  be  considered. 

NPCNT  - --  --  --  - Number  of  different  percent  damage 

allowed. 

NPTS  - --  --  --  --  Number  of  points  in  table, 

NPTSA  - --  --  --  - Number  of  X- Y planes  in  input  table. 

NPTSB  - --  --  --  - Number  of  columns  in  input  table. 

NS  - --  --  --  --  - Number  of  static  stresses.  (CDPRO 

subroutine) 

NS  - --  --  --  --  - Number  of  static  stresses  stored  on 

file  (SHOCKE  subroutine) 

NT  ---------  - Number  of  temperatures.  (CDPRO 

subroutine) 

NT  ---------  - Number  of  temperatures  stored  on 

file.  (SHOCKE  subroutine) 

NTH  - --  --  --  --  Number  of  thicknesses. 
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TABLE  III  (Contd. ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


OB  (I)  - --  --  --  --  Array  of  1-Octave  band  center  fre- 

quencies, Hz. 

OCOST  (I,  K)  ------  Matrix  of  optimum  cost  for  each 

allowed  G-level.  OCOST  (I,  K)  = 
F(G-level,  axis). 

OM  ---------  - Environmental  frequency. 

OMJ  (I)  - --  --  --  - Environmental  Frequencies  (rad/sec) 

OMS(I)  - --  --  --  - Array  of  frequencies  stored  in  ascend- 

ing order.  (CDPRO  subroutine) 

OMS(I)  - --  --  --  - Frequency  scale.  (VIBRTN  subroutine) 

OPSS(I)  - --  --  --  - The  optimum  number  of  packages  to  be 

shipped  in  order  to  have  one  reach  the 
destination  undamaged. 

OTHK(I,  K)  -------  Optimum  thickness  for  each  face. 

OTHK  (I,  K)  = F (G-level,  axis). 

PCTD(I)  - --  --  --  - Percent  of  damage  allowable. 

REPCI  (I)  -------  Replacement  cost. 

RHOC  --------  - Specific  weight  of  container  material 

under  consideration. 

RHOM  - --  --  --  - Specific  weight  of  material  under 

consideration. 

S (I)  - --  --  --  --  PSD  (Power  Spectral  Density)  input 

for  random  excitation.  (DAMALW 
subroutine) 

S(I)  - --  --  --  --  Array  of  1-octave  band  power  spectral 

densities.  (VIBRTN  subroutine) 

SI Static  stress  (W/A).  (CDPRO  sub- 

routine) 


TABLE  III  (Cornet.) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


SI---------  - Interpolating  stress.  (SHOCKE  sub- 

routine) 

SIG(I)  - ------  Array  of  static  stresses  in  ascend- 

ing or^cr.  (CDPRO  subroutine) 

SIG(I)  - --  --  --  - 1-D  table  of  static  stresses  (W/A). 

(SHOCKE  subroutine) 

SIT  (I)  Work  array  used  for  sorting. 

SJ  - --  --  --  --  - Sum  of  output  excitations  for  one 

center  frequency. 

SLT  (I)  - --  --  --  - Safe  low  temperature. 

T(I)  - --  --  --  --  Array  of  temperatures  in  ascending 

order.  (CDPRO  subroutine) 

T(I) - 1-D  table  of  temperatures.  (SHOCKE 

subroutine) 

Tl---------  - Material  thickness  for  face  one, 

T2  - --  --  --  --  - Material  thickness  for  face  two. 

T3  - --  --  --  --  - Material  thickness  for  face  three. 

TAB1  (I,  J,  K)  ------  Work  array  - during  shock  calcula- 


tions it  contains  G = F (thickness, 
static  stress,  temperature).  During 
vibration  calculations  it  contains  ER  = 
modulus  = F (frequency,  temperature), 
(CDPRO  subroutine) 


TAB1  (I,  J,  K)  ------  3-D  table  of  peak  accelerations  G = F 

(TH,  SIG,  T).  (SHOCKE  subroutine) 

TAB1  (I,  J,  K)  ------  Table  containing  behavior  of  storage 


modulus  (ER)  ER  = F (frequency, 
temperature).  (VIBRTN  subroutine) 
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TABLE  III  (Contd. ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


TAB2  (I,  J,  K) 


Array  which  contains  loss  tangent  = F 
(frequency,  temperature).  CDPRO 
subroutine) 


TAB2(I,  J,  K)  ------  Table  containing  behavior  of  loss  tan- 
gent EL/ER  = F (Frequency,  Temper- 
ature). (VIBRTN  subroutine) 

TCC  - --  --  --  --  Total  cost  of  container  by  volume. 


TCC(I) 


Calculated  thicknesses. 


TCMV 


TCON 
TF  (I) 


Total  cost  of  material  by  volume. 
Thickness  of  container  (in.). 


1-D  array  of  guess  thicknesses. 


TF(WI,  WJ,  ERI,  ERJ,  DJ)  - - Statement  function  to  calculate  trans- 

fer function. 


THCK  (A,  ERI,  WI,  W)  - 


TH(I)  - 


- Statement  function  to  calculate  thick- 
ness. 

- Array  of  thicknesses  in  ascending 
order.  (CDPRO  subroutine) 


TH(I)  - --  --  --  --  1-D  table  of  thickness  values. 

(SHOCKE  subroutine) 


A trial  thickness.  (CDPRO  sub- 
routine) 


Guess  thickness.  (SHOCKE  sub- 
routine) 


THIK  (I,  J) 


Matrix  of  thicknesses  generated 
during  shock  calculations. 


THIKV(I,  J)  -------  Matrix  of  thicknesses  generated 

during  vibration  calculations. 

TI  ----------  An  environmental  tamperature. 

(CDPRO  subroutine) 


Interpolating  temperature,  (SHOCKE 
subroutine) 
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TABLE  III  (Contd.  ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


Till  - --  --  --  --  Environmental  temperature. 

TMX  - --  --  --  --  Maximum  allowed  shock  thickness. 

TOP  - --  --  --  --  Optimum  thickness. 

TOPP(I)  - --  --  --  - Array  of  acceptable  thicknesses. 

TS(I)  - --  --  --  --  Array  of  temperatures  stored  in  as- 

cending order.  (CDPRO  subroutine) 

TS(I)  - --  --  --  --  Temperature  scale.  (VIBRTN  sub- 

routine). 

TSK  - --  --  --  --  Thickness  predicted  by  shock  environ- 

ment. 

TT(I)  - - --  --  --  -A  thickness  work  array. 

TTHIK(I,  J,  K)  ------  Dynamic  array  which  contains  the 

union  of  the  thicknesses  of  all  three 
temperature  environments. 

TTHIK  (I,  J,  L)  ------  Dynamic  thickness  array  contains  all 

acceptable  vibration  thicknesses  for 
each  material,  axis,  and  temperature. 

VI---------  - Volume  of  packaging  material  needed 

for  face  one. 

V2  - --  --  --  --  - Volume  of  packaging  material  needed 

for  face  two. 

V3  - --  --  --  --  - Volume  of  packaging  material  needed 

for  face  three. 

VAL  - --  --  --  --  Interpolated  value. 

W---------  - Weight  of  item. 

WI  - --  --  --  --  Weight  of  item  (lb)  (CDPRO  subroutine) 

WI  - --  --  --  --  1 -octave  band  center  frequency. 

(VIBRTN  subroutine) 

WII  - --  --  --  --  Weight  of  item. 


TABLE  III  (Contd. ) 

GLOSSARY  OF  VARIABLES  FOR  OPPACK 


W (K)  - --  --  --  --  Work  array  containing  function  weights. 

WW  - --  --  --  --  Item  weight  + container  and  cushion 

weight, 

XB  ---------  - Horizontal  argument  (interpolating 

value). 

XDD(I)  - --  --  --  - Calculated  output  excitation. 

XDDA  ________  Maximum  allowable  G-level. 

XDJ(I)  - Environmental  G-levels. 

XIK(I)  - Table  of  independent  variables  to  be 

interpolated. 

XK  - Interpolating  value. 

XL Width  (in.) 

YG ----  - Vertical  argument  (interpolating 

value). 

YL  - Height  (in.)  - shortest  dimension. 

ZA  ---------  - Depth  (interpolating  value). 

ZL  ---------  - Length  (in.)  - longest  dimension. 
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MAIN  DRIVER  AND  SUBPROGRAMS 

OPPACK  --  Main  Driver 
Usage: 

(1)  Read  first  four  input  cards  from  problem 
card  deck. 

(2)  Initialize  appropriate  variables. 

(3)  Print  and  define  input  data. 

Subroutines  called: 

TEMPEV 
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0C0003 

000003 

000003 

000003 

00003S 

ooooso 

000003 

00007b 

000*03 

oon  if 

OOC,  .4? 

oor.iba 

r .•**.. 

C'  r‘3!jO 
OuO^OO 
000300 
000300 


000300 
000300 
oc-  00 

000300 

000900 

000303 


PROGRAM  OPPACK( INPUT,OUTPUT, TAPE1»TAPE3,TAPE3,TAPE4, TAPES, 

1 TAPEb,  TAPE?, T APES- TAPEH, TAPE10) 

C OPTIMIZATION  PACKAGE  MAIN  PROGRAM 

C ROUTINE  RF AOS  CARO  INPUT  DATA 

COMMON  /COSTM/  CA(10,?),CD(10,3),CS,CI,WII 

COMMON  /VPASS/  NIC, IC , I I TM, MIC, MXI , MOMJ, TCON, TEMU, TEMH 

OIMENSION  0Mi'(ll),S(ll),X0J(li) 

READ  1000, NI*;,  IC, IITM, MIC, MXI, MOMJ, CS, Cl, TCON, TEML, TEMH 
RE  AO  1030, (0MJ(I),I*1, MOMJ) 

READ  1030,(3(1), 1*1, MOMJ) 

READ  1030, (XDJ(I), 1*1, MOMJ) 

PRINT  10?U 

PRINT  1030,  NIC, IC, IITM, MIC, MXI, MOMJ, C3, Cl, TCON, TEML, TEMH 
PRINT  1040,  (OMJ(I),  Ial,  MOMJ  ) 

PRINT  mSU,  (3(1),  1*1,  MOMJ  ) 

PRINT  lObO,  (XDJ(I),  1*1,  MOMJ  ) 

CALL  T£MPEV(UMJ,S,XDJ) 

1000  F0RMAT(bl3,SE10.0) 

1010  FORMAT  (**013) 

1030  FORMAT (11E7.0) 

1030  FORMAT  ( 1H0,  18  , 53H  * NIC  — CODE  NO.  OF  CONTAINER  MATERIAL  T 

10  BE  USED  /1X,I8,9SH  a IC— OPTIMIZATION  CODE  / 

1/IB  , 33M  * IITM  — ITEM  NUMBER 

3/18  , Sbh  * MIC  — MAXIMUM  NO.  OF  ITERATIONS  FOR  DROP  HT.  CALC. 
3/18  , SSrt  * MXI  — MAXIMUM  no.  OF  ITERATIONS  FOR  G-CONVERGENCE 
4/18  , 4 ?H  a MOMJ  — NUMBER  OF  ENVIRONMENTAL  FREQUENCIES 
S/Ell. 4,  33M  (S/LB)  * CS  — COST  OF  SHIPMENT 
b/FB.a  , 3SH  ( S ) * Cl  — COST  OF  ITEM 
?/F8.b,  43H  (IN.)  * TCON  — THICKNESS  OF  CONTAINER 

S/FB.3,  SOH  ( F ) * TEML  — LOWEST  ENVIRONMENT  TEMPERATURE 

1/F8.3,  SIM  ( F ) = TEMH  — HIGHEST  ENVIRONMENT  TEMPERATURE  ) 

1040  FORMAT  ( 1H0 , SOH  (R AD/SEC)  * OMJ(I)  ALL  OF  THE  ENVIRONMENTAL  FREQ. 
1/  11E11.S  ) 

1050  FORMAT  ( 1H0 , 34M  PSD  INPUT  FOR  RANDOM  EXCITATION 
1/  11E11.S  ) 

lObO  FORMAT  ( 1H0 , S3H  (G*S)  * XOJ(I)  - ENVIRONMENTAL  EXCITATIONS  EACH 
1 CORRESPONDING  TO  ONE  OF  THE  ABOVE  OMJ(I)S/  11E11.S) 

10?0  FORMAT  ( 1 HI , //  SOX,  bSH***  OPTIMIZATION  PROCEDURE  FOR  DESIGN  OF 
1PACKAGE  CUSHIONING  ***  //  ) 

STOP 

END 
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OPPACK 


PROGRAM  LENGTH  INCLUDING  I/O  BUFFERS 
U31022 

FUNCTION  ASSIGNMENTS 
STATEMENT  ASSIGNMENTS 


1000 

• 

00022b 

1010 

- 

000231 

1010 

* 

00031b 

1050 

■ 

000357 

BLOCK 

NAMES  AND  LENGTHS 

COSTM 

" 

000135 

VPASS 

- 

000011 

variable 

ASSIGNMENTS 

CA 

- 

000000C01 

CD 

- 

OOOlObCOl 

I 

- 

000171 

IC 

- 

000001C02 

MOM  J 

- 

000005C02 

MXI 

- 

000001C0? 

S 

• 

000113 

TCON 

- 

ooooobcoa 

XDJ 

- 

00015b 

START  OF  CONSTANTS 
000201 

START  OF  TEMPORARIES 
000120 

START  OF  INDIRECTS 
000130 


1020  - 000233  1030  - 00023S 

lObO  - 000370  1070  - 000105 


Cl 

- 000133C01 

CS 

• 000132C01 

IITM 

- 000002*.  12 

MIC 

- 000003C02 

NIC 

- 000000C02 

OMJ 

- 000130 

TEMH 

- 000010C02 

TEML 

- 000007C02 

UNUSED  COMPILER  SPACE 
012100 
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TEMPEV  - Subroutine 


Usage: 


This  subroutine  is  used  to  initialize  the  three 
temperatures  to  be  considered. 


Subroutines  called: 


DAM  AL  W 


OOOOQo 

00000b 

00000b 

00000b 

00000b 

OOOQOb 

ooooo? 

oonoio 

0000 J 5 
000015 
OOOOib 
000022 
000035 
00003b 


SUtJROUTINE  TEMPEV(OMJ, 
COMMON  /VPASS/  NIC#IC#I 
COMMON  /COSTM/  CA(1U»7) 
COMMON  /TEMPT/  TTHlK(10 
DIMENSION  TIC3) 
DIMENSION  OMJ (11),S(10) 
TMXsl?. 


S» XDJ) 

ITM,MIC,MXI,MOMJ, TCON 

fCD(lO,2>,C8,CI,WII 

f3fll),lMflAXSfITEMPf 

»X0J(11) 


»teml*temh 

I JE#  TMX 


ITEMPrS 


TI(1)=  TEML 

TIO)s  0.5*(TEMH*TEML) 
TI(3)=  TEMH 


* ■ \ itnu/ill  tCI 

CALL  0 AMALM ( NIC » I C » 

RETURN 

END 


IITM, TCON,TI,MIC,MXI,CMJ, 


" W n W 9 O 9 A|/J  ) 


TEMPEV 


SUBPROGRAM  LENGTH 
H00055 

FUNCTION  ASSIGNMENTS 

STATEMENT  assignments 

BLOCK  NAMES  AND  LENGTHS 
VPASS  - OOOOli  COSTM 

'LIABLE  ASSIGNMENTS 

- oonooocoa  co 

ITEmP  - 00051HC03  MIC 

NIC  - OOOOOOCOl  TCON 

- 000052  TMX 

START  OF  CONSTANTS 
0000*0 

start  OF  temporaries 

OOOOHH 

START  OF  indirects 
0000  2 

UNUSED  COMPILER  SPACE 
0H3700 


000135  TEMPT 


000l0bC02  IC 
000003C01  ml.;j 

OOOOObCOl  TEMH 
000S1SC03  TTHIK 


000517 


000001C01  I ITM 
000005C01  MXI 

oonoiocoi  teml 

OOOCOOC  0 3 


- 000002C01 

- OOOOOfCOl 

- 000007C01 
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DAMALW  - Subroutine 


Usage: 

(1)  Reads  remainder  of  problem  data  deck. 

(2)  Prints  input  and  explanation  of  input. 

(3)  Determines  materials  to  be  considered. 

(4)  Determines  best  shipping  policy, 

(5)  Prints  appropriate  information  concerning 
the  best  shipping  policy. 


Subroutines  called: 
CDPRO 
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Glossary  of  Variables  for  DAMALW 


CA  (I,  J)  - - 

CD  (I,  J)  - - 

Cl  - - - - 

CS  - - - - 

GMF(I)  - - 

11  - - - - 

12  - - - - 

13  - - - - 

MATOP  (I,  K)  - 

MAT  SC  (I)  - - 

NMATS  - - 

NPCNT  - - 

OCOST  (I,  K)  - 

OMJ  (I)  - - - 

OPSS(I)  - - 

OTHK  (I,  K)  - 

PCTD(I)  - - 

REPCI  (I)  - - 


- Material  cost  and  property  matrix.  Contains  cost  of 
material,  cost  of  fabrication,  cost  of  packaging,  safe 
low  temperature,  low  and  high  static  stresses,  and 
specific  weight. 

- Container  cost  and  property  matrix.  Contains  specific 
weight  of  container  and  cost  of  container. 

- Cost  of  item. 

- Cost  of  shipment. 

- G-levels  for  each  percent  damage  allowable. 

- Array  subscript  for  material  used  on  face  one. 

- Array  subscript  for  material  used  on  face  two. 

- Array  subscript  for  material  used  on  face  three. 

- Optimum  material  for  each  face. 

MATOP  (I,  K)  = F (G-level,  axis). 

- Material  code. 

- Number  of  materials  to  be  considered. 

- Number  of  different  percent  damage  allowed. 

- Matrix  of  optimum  cost  for  each  allowed  G-level. 
OCOST  (I,  K)  = F (G-level,  axis) 

- Environmental  frequencies  (rad/ sec) 

- The  optimum  number  of  packages  to  be  shipped  in 
order  to  have  one  reach  the  destination  undamaged. 

- Optimum  thickness  for  each  face. 

OTHK  (I,  K)  = F (G-level,  axis) 

Percent  of  damage  allowable. 

- Replacement  cost. 
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Glossary  of  Variables  for  DAMALW  (Contd.  ) 


S (I)  - - - 

T1  - - - 

T2  - - - 

T3  - - - 

WII  - - . 

XDJ(I)  . . 


- - PSD  (Power  Spectral  Density)  input  for  random 

excitation. 

Material  thickness  for  face  one. 

Material  thickness  for  face  two. 

- Material  thickness  for  face  three. 

- - Weight  of  item, 

- - The  environmental  G-levels. 
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00001b 

00001b 

00001b 

OCOOlb 

OOOf'.Jb 

00001b 

00002? 

000041 
OOQObO 
000077 
000 1 1 b 
000135 

000143 
000143 
000 1 b 3 


000203 

000205 

00020b 

000210 


SUBROUTINE  0AMALW(NIC,IC.  T II M , TCON , T I , MIC , MXl , OM J, MOM J , S, 

1 XOJ) 

C BASED  UPON  THE  ALLOWED  OAM AGE . 

C CA(I,J)  s COST  ANO  PROPERTY  MATRIX  - CONTAINS  COST  OF  MATERIAL, 

c cost  of  fabrication, cost  of  packaging, safe  low  temp, 

C LOW  ANO  HIGH  STATIC  STRESSES,  SPECIFIC  WEIGHT. 

C CO(I,J)  s COST  ANO  PROPERTY  MATRIX  - CONTAINS  SPECIFIC  WT  OF 
C CONTAINER  AND  COST  OF  CONTAINER. 

C Cl  s COST  OF  ITEM 

C CS  = COST  OF  SHIPPING 

c OAMALW 

C GMF(I)  a ALLOWED  G-LEVELS  FOR  EACH  PER-CENT  DAMAGE  ALLOWABLE 
C II  a ARRAY  SUBSCRIP-FOR  MATERIAL  USEO  ON  FACE  ONE  (1) 

C 12  a ARRAY  SUBeCRlF  FOR  MATERIAL  USED  ON  FACE  TWO  (2) 

C 13  * AR*AY  SUBSCRIP  FOR  MATERIAL  USEO  ON  FACE  THREE  (3) 

C MATOP(I,K)  a OPTIMUM  MATERIAL  FOR  EACH  FACE 
C MATSC(I)=  MATERIAL  CODE 

C OCOSTt I , J)  a MATRIX  OF  OPTIMUM  COST  FOR  EACH  ALLOWED  G-LEVEL 
C OMJ(I)  s ENVIRONMENTAL  FREQUENCIES  (RAO/SEC) 

C OTHK(I,K)  a OPTIMUM  THICKNESS  FOR  EACH  FACE 
C PC  TO ( I ) a PER-CENT  OF  OAM AGE  ALLOWABLE 

C REPCI(I)a  REPLACEMENT  COST 

C S ( I ) a PSD  INPUT  - FOR  RANDOM  EXCITATION 

C SUBROUTINE  RE  AOS  FRAGILITY  DATA  FOR  DAMAGE  ALLOWABLE 

C SUBROUTINE  RE  AOS  MATERIAL  COST  AND  PROPERTY  FILE 

C THEN  ITERATES  ON  COPRO  FOR  DIFFERENT  FRAGILITY  DATA 

C THEN  IT  DETERMINES  THE  OPTIMUM  SHIPPING  STRATEGY 

C THE  REMAINING  INPUT  VARIABLES  ARE  OFFINE  IN  THE  OUTPUT  FORMATS 

c ti  a material  thickness  for  face  one 

C T2  a MATERIAL  THICKNESS  FOR  FACE  TWO 

C T3  a MATERIAL  THCIKNESS  FOR  FACE  THREE 

C WlIaWEIGHT  OF  ITEM 

C XDJ(I)  a THE  ENVIRONMENTAL  G-LEVELS 

DIMENSION  T I ( 3 ) 

DIMENSION  OPSS(IO) ,0C0ST(10,2) ,PTHK(10,3) , MAT OP (10, 3) 

DIMENSION  GMF(10),PCTD(10),REPCI(10),MATSC(10),0MJ(10),S(10), 

1 XDJ(IO) 

COMMON  /OPT/  II,  12, 13,T1,T2,T3 
COMMON  /COSTM/  CA(10,7),C0(10,2),CS,CI,WII 
C READ  COST  FILE 

READ  5U0,NC,MITEM,MNMATS 

PRINT  4010,  NC,  MITEM,  MNMATS 

READ  10,  ( (C A ( I , J), J=l,7),  1:1  , MNMATS) 

READ  10,  (CC0(!,J),Jal,2),  Iel,NC) 

PRINT  4020,  ((CA(I,J),J=l,7),Isj,  MNMATS  ) 

PRINT  4030,  ((C0(I,J),Jsl,2),  1*1,  NC  ) 

RHOCaCO(NIC,l) 

C REAO  FRAGILITY  DATA  FOR  DAMAGE  ALLOWABLE 

20  CONTINUE 

REAO  5,  ITEM, WI,XL, YL,ZL,NPCMT 

PRINT  4040,  ITEM,  WI,  XL,  YL,  ZL,  NPCNT 
C USING  THE  RANGE  OF  OPTIMUM  STRESSES  OETERMINE  THE  MATERIALS  TO  BE 
C CONSIDERED 

X = XL 
Y a YL 
Z»ZL 

Ws*I 
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000211 

00021b 

000220 

00022* 

00022* 

00022? 

000232 

000235 

0002*2 

0002*b 

0002*? 

000250 

0002bl 

0002?2 

0002?b 

00027? 

000301 

00030* 

00031* 

00031? 

000332 

00033* 

000350 

0003b? 

000*C'b 

000*13 

000*15 

000**2 

000*50 

000*52 

000*53 

000*55 

000*5? 

000*b2 

000*b* 

000*71 

000*7* 
000*  7b 
000515 
000523 
000523 
00052? 
0005*0 
0005*2 
0005*3 
0005*5 
0005*  b 
000551 
000553 
G3C5F* 
0U0557 
000552 


C CHANGE  PCF  TO  PCI 

C CHANGE  COST/CF  TO  COST/CI 

00  25  I=1,MNMATS 

CA(I,7)=CA(I,7)/1?28. 

25  C A ( I , l)=CA(Ifl)/172B. 

2b  CONTINUE 

SI  s W/CX  * Y) 

32  s w/(X  * Z) 

S3  * W/(Z  * Y) 

Sll  = AMINl (31 , S2, S3 ) 

322=  AMAXl (SI , 32 , S3) 

NMATS=0 

00  28  1=1 , MNMATS 

C 'ELECT  MATERIAL  TO  BE  CONSIDERED 

IF(Sli.GT.CA(I,b).0R.SU.LT.CA(I,5))G0  TO  28 
IF(3*2.GT.CA(I,b).0R.S22.LT.CA(I,5))G0  TO  28 
IF(CA(I,*).GT.TI(1))  GO  TO  28 
NMATS=NMATS  ♦ 1 
MATSC(NMAT3)=I 
28  CONTINUE 

IF (NMAT3.EQ.0) PRINT  *000 

IF(NMATS.EQ.0)3T0P 

PRINT  *0b0,(MAT3C(I),I=l, NMAT3) 

WI1=WI 

IF(I TEM.NE.HTM) PRINT  3000 

READ  7,  (GMF (I)»PCTD(I), REPC I(I),I=1, NPCNT) 

PRINT  *0513,  (GMF(I),  PCTD(I),  REPC I ( I ) , 1*1 , NPCNT) 

DO  *0  IT  = 1, NPCNT 
GMsCMF(IT) 

CALL  CDPR0(XL,YL,ZL,TC0N,TI,WI,NMAT3,RH0C,MIC,MXI, 

1 C0ST,MAT8C,GM,0MJ,M0MJ,S,XDJ,IC,N7.C) 

IF(TI(1).E0.1500.)G0  TO  *5 

OTHK( IT  , 1 )=T1 

OTHK( I T, 2)=T2 

OTHK( I T , 3)*T3 

MAT0P(ITfl)=MAT3C(Il) 

MAT0P(IT,2)=MATSC(I2) 

MAT0P(IT,3)=MATSC(I3) 

0P3S(IT)=l./(1.0-0.0l*PCTD(IT)) 

C COST  OF  OVERSHIPPING 

0C0ST(IT,1)=C0ST*0PS3(IT) 

C COST  OF  ALLOWING  DAMAGE 

0C0ST(1T,2)=C0ST*REPCI(IT) 

PRINT  1000,  PCT0(IT),GM,C03T,0P83(IT),0C08T(IT,1),0C08T(IT,2) 
• *0  CONTINUE 

*5  CONTINUE 

IF(TI(l).EQ.1500.)NPCNT=IT-l 
IF(NPCNT.EG.O)PRINT  *0?0 
IF(NPCNT.EQ,0)RETURN 
11=1 

0St3  = 0C0ST(l,l) 

00  50  1=1, NPCNT 

IF(0SB.LE.0L()ST(I,1))  GO  TO  50 
0Srt=0CUST(I,J  ) 

II=I 

50  CONTINUE 
PRINT  110U0 

PRINT  1500,  0SB,GMF(IT),PCTD(II),0P3S(II) 
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00057b 

PRINT  2000,OTHK(II,1),MATOP(II,1),OTHK(II,2),MATOP(II,2), 

1 

0THK(II,3),MAT0P(II,3) 

OOOblb 

11  = 1 

OOObl? 

OVERSsOSB 

000b  21 

0S8*0C0ST (1,2) 

000b22 

00  bO  1 = 1 , NPCNT 

00  0b2  7 

IF(0SB.LE.0C0ST(I,2))  GO  TO  bO 

000b32 

0S8=0C0ST(I,2) 

000b34 

II*I 

00  0b  35 

bO 

CONTINUE 

000b40 

PRINT  lbOO,  0S8,GMF(II),PCTD(II),REPCI(II) 

OCObS3 

PRINT  200U,0THK(II, 1 ) , MA TOP ( I I , 1 ) , OTHK ( I I , 2 ) , MATOP( I I , 2 ) , 

J 

L 0THK(II,3),MAT0P(II,3) 

0 - 3 

IF(0VERS.GT.0SB)G0  TO  70 

Jou  702 

PRINT  1S0U 

000  70S 

PRINT  12000 

r,‘-r  : 

RETURN 

C U 0 7 1 c 

70 

CONTINUE 

000712 

PRINT  1900 

00071b 

PRINT  12000 

000722 

RETURN  k 

000723 

5 

F0RMAT(I4,2X,4E10.0,2X,I2) 

000723 

7 

FORMAT (3ElO*n) 

000723 

10 

F0RMAT(ES.0,Eb.0,F.b.0,Eb.0,3El5.5) 

000723 

500 

F ORMAT (4012) 

000723 

1000 

F0RMAT(2X,3HF0RlX,Fb.2,lX,22HPER-CENT  DAMAGE  ANO  A 

000  7?  3 


000723 


000723 

000723 

000723 


000723 

000723 

000723 


000723 


1 17HFRAGILITY  RATE  OF  F4 . 1 , IX , 3HG ' 3/ 

2 PXfllHTHE  COST  IS1X,F9.2, IX, 15H00LLARS  WITH  A 

3 25HMULTIPLIC ATION  FACTOR  OF  IX , Fb . 2 , X X, 9HTIMES  ONE  / 

4 2X.20HWITH  A FINAL  COST  OFlX, F9 . 2, 1 X , 7HD0LL ARS 

5 17HF0R  OVER  SHIPPING  / 

b 2X,  31HF0R  ALLOWING  OAMAGE  THE  COST  IS  1X,F9.2,1X, 

7 12H00LLARS/ITEM  /) 

1500  F0RMAT(2X,18H0VER  SHIPPING  DATA  / 

1 2X.19HTHE  OPTIHUN  COST  IS1X,F9.2, IX, 7HD0LLAR3  / 

2 2X , 21 HTHE  FRAGILITY  RATE  ISlX , F4 . 1 , IX , 3HG • S / 

3 2X,22HTHE  PER-CENT  OAMAGE  ISlX,Fb.l  / 

4 ?X,28HTHE  MULTIPLICATION  FACTOR  IS1X,F5.1/) 
lbOO  FORMAT (?X,21H0AMAGE  ALLOWABLE  OATA  / 

1 ?X , 19HTHE  OPTIMUM  COST  I$1X,F9.2, IX, 7H00LLARS  / 

2 2X,21HTHE  FRAGILITY  RATE  IS1X , F4 . 1 , IX , 3HG • S / 

3 2X.22HTHE  PER-CENT  OAMAGE  ISlX,Fb.l,  / 

4 2X, 22HTHE  REPAIR  COST/ITEM  =1 X, F9 . 2, IX , 7H00LL ARS/ ) 

1800  FORMAT(32HOOVERSHIPPING  IS  THE  BEST  POLICY/) 

1900  F0RMAT(48H0THE  ABOVE  PER-CENTAGE  OAMAGE  IS  THE  BEST  POLICY/) 
2000  FORMAT (2X,37HTHE  OPTIMUM  THICKNESS  FOR  FACE  ONE  ISl X , F7 . 3 , IX , 
J bHINCHESlX,HHIF  MATERIAL1X,I2,1X,7HIS  USEO/ 

2 2X, 37HTHE  OPTIMUM  THICKNESS  FOR  FACE  TWO  ISlX , F7 . 3 , 1 X, 

3 bHiNCHESIX, 11HIF  M ATER I ALl X, 1 2 , 1 X , 7HI S USED/ 

V 2X, 39HTHE  OPTIMUM  THICKNESS  FOR  FACE  THREE  ISlX, F7. 3,1 

5 bHINCHE31X,HHIF  MATERI AL1X,  12,  IX,  7HIS  USED//) 

3000  FORMAT (2X,V5H*THE  ITEM  IDENTICAT ION  NUMBER  OOES  NOT  AGREE* 
133H*WITH  THAT  OF  THE  FRAGILITY  DATA*) 

4000  F0RMAT(2X,52HN0  MATERIAL  IS  IN  THE  RANGE  OF  OPTIMUM  STRESS— 
4010  FORMAT  (1H0,I8,30H  a NC  — NUMBER  OF  CONTAINERS/ 

11X,I8,24H  a MITEM  — ITEM  NUMBER/ 

21X,  I8,40H  a MNMATS— - NUMBER  OF  MATERIALS  ON  FILE  ) 

4020  FORMAT  (1H0,2X,  85H  CST-MAT  CST-FAB  CST-PAK  SL 


X. 

STOP) 

-TEMP 
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1 LW-8TR3  HI-8TR8  GAMMA  / ( El  1 .<♦  , „i-13 . H ) ) 

000723  f 0 30  FORMAT  (1H0,2X,27H  GAMMA  CST-CONTAINER  / (El 1 . f , bEl 3.* ) ) 

000723  *0*0  FORMAT  (1 H0,2X, IB, 12H«ITEM  NUMBER  /3X» Ell . t ? 2 RHs WEIGHT  OF  ITEM  MI 

1(  POUNDS  ) /3X,Eli.*rb5H=  DIMENSION  PARALLEL  TO  X-AXIS  2N0  LONGEST 

2 DIMENSION  XL  (INCHES)  /3X,EU.f  ,bSH»  DIMENSION  PARALLEL  TO  Y-AXIS 

3 3RD  LONGEST  DIMENSION  YL  (INCHES)  /3X,Ell.f , blHs  0IMEN8I0N  PARALL 
HEL  TO  Z-AXIS  LONGEST  DIMENSION  ZL  (INCHES)  /,3X,  SHNUMBER  a 18) 

000723  *050  FORMAT  ( 1H0,8X,  3SH  MAX-G  PCNT-DAM  REPLACE-CST  / 

1(3X,3E12.Y)  //  2(120(1H*)/  ) ) 

000723  40b0  F0RMAT(lHU2Xr30HMATERIAL  CODES  CONSIDERED  ARE  10(1X,I2,2H#  )) 

000723  *070  F0RMAT(50H0  NONE  OF  THE  DATA  IS  ACCEPTABLE  FOR  THIS  PROBLEM  ) 

000723  11000  FORMAT  (/  120(1H*)/  ) 

000723  12000  FORMAT  ( //  (120(1H*  )/  ) / 1H1  ) 

000723  END 
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DAK AL W 


SUBPROGRAM  LENGTH 
00170b 


function  assignments 


statement 

ASSIGNMENTS 

5 

- 

000735 

7 

2b 

- 

0n022* 

28 

bO 

- 

000b  35 

70 

It  CO 

" 

001032 

lbOO 

'••'00 

- 

0011*7 

3000 

■i 

• 

0012b* 

*030 

*CbO 

- 

0013bS 

*070 

.*•  'JC*-  NAMES  ANO  LENGTHS 
’T  - 00000b  COSTM 


VARUbLE  ASSIGNMENTS 

CA 

- 000000C02 

CD 

GMF 

- 001b02 

X 

ITEM 

- OOlbbO 

11 

j 

OOlbSb 

matcp 

MNMATS 

OOlbS* 

MOM  J 

NMATS 

001b7? 

npcnt 

OPSS 

001*50 

OSB 

PCTD 

OOlbl* 

REPCI 

Si 

001b72 

Sll 

S3 

001b7* 

Tl 

N 

* 001b  71 

WI 

XDJ 

■ 00000* 

XL 

A - 00 1 b 7 0 

start  of  constants 

ZL 

U0072S 

start  OF  TEMPORARIES 
001*1* 

start  of  indirects 

001*30 

UNUSED  COMPILER  SPACF 
037500 


0007*1  m 

000301  *5 

000712  5QQ 

001072  1800 

00121b  *000 

001301  *0*0 

00137*  11000 


0007*3  go  • 0001*3 
000523  50  - 00055* 
0007*7  looo  . 000751 
001133  1900  - 0011*0 
001231  *010  - 0012*1 
001310  *050  - 001352 
001*0*  12000  - 001*0? 


000135 


00010bC02  COST 
OOlbSS  II 
000000C01  1 2 
0015**  MATSC 

000G02  MX  I 

OOlbbS  OCOST 

00170*  OTHK 
001b2b  RHOC 
001 b 75  S2 
000003C01  T2 
OOlbbl  WII 

G0lbb2  Y 

OOlbb* 


001702 

GM 

001703 

IT 

000001C01 

13 

001b*0 

MITEM 

000000 

NC 

00l*b2 

OMJ 

00150b 

OVERS 

OOlbS? 

S 

001t?3 

S22 

00000*C01 

T 3 

00013*C02 

X 

OOlbb? 

YL 

- 001701 

- 001700 

- 000C02C01 

- 001bS3 

- 001bS2 

- 000001 

- 001 70S 

- 000003 

- 001b?b 

- 000005C01 

- OOlbbb 

- OOlbbS 
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CDPRO  - Subroutine 


Usage: 


(1)  Reads  material  files. 

(2)  Stores  material  thicknesses  by  material  and 
axis  for  the  shock  and  vibration  environments. 

(3)  Deletes  materials  that  do  not  protect  in  all 
temperature  regions. 

Subprograms  called: 


(1) 

DHGHT 

(2) 

SHOCK E 

(3) 

VIBRTN 

(4) 

COSTMT 
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Glossary  of  Variables  for  CDPRO 


AL  (I)  - - - 

ALI(T'  - - - 

DH  - - - - 

DII  - - - - 

DLH  - - - 

DL  (I)  - - - 

DRPH  - - - 

DWB  - - - 

GM  - - - - 

IJE  - - - - 

ITEMP  - - 

MIC  - - - 

MOMS  - - - 

MTS  - - - 

MXIT  (I,  J,  K)  - 

NMATS  - - 

NS  - - - - 
NT  - - - - 

OMS(I)  - - 

RHOC  - - - 

RHOM  - - - 

SI  - - - - 

SIG(I)  - - - 


Array  of  longest  dimensions  for  each  face  of  package. 
Actual  dimensions  of  package. 

Calculated  drop  height. 

Array  of  drop  heights. 

Dummy  parameter. 

Change  in  package  dimensions  along  each  face. 

Actual  drop  height  - stored  on  file. 

Weight  added  by  the  addition  of  a bearing  board. 

Maximum  G-allowable  (ft/sec/sec). 

Deletion  code. 

Number  of  temperatures  considered. 

Maximum  iterations  for  drop  height  weight  convergence. 

Number  of  frequencies  stored  on  the  vibration  file. 

Number  of  temperatures  stored  on  the  vibration  file. 

Number  of  thicknesses  stored  for  each  axis  and 
temperature. 

Number  of  materials  to  be  considered. 

Number  of  static  stresses. 

Number  of  temperatures. 

Array  of  frequencies  stored  in  ascending  order. 

Specific  weight  of  container  material  under  consideration. 
Specific  weight  of  material  under  consideration. 

Static  stress  (W/A). 

Array  of  static  stresses  in  ascending  order. 
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T (I)  - - - - 

TAB1  (I,  J,  K)  - 

TAB2  (I,  J,  K)  - 

TCON  - - - 

TH  (I)  - - - 

THI  - - - 

THIK  (I,  J)  - - 

THIKV  (I,  J)  - 

TI  - - - - 

Till  - - - 

TMX  - - - 

TS  (I)  - - - 

TSK  - - - 

TTHIK  (I,  J,  K) 

WI---- 
XL---- 
YL  - - - - 

ZL  - - - - 


i saiy  of  Variables  for  ZD-  RC  ( 'Zo::.tci.' 

- Array  of  temperatures  in  ascending  order. 

Work  array — during  shock  calculations  it  contains  G = P' 
(thickness,  static  stress,  temperature).  During  vibra- 
tion calculations  it  contains  ER  = modulus  = F (frequency, 
temperature). 

- Array  which  contains  loss  tangent  = F (frequency, 
temperature). 

Thickness  of  container  (in.). 

- Array  of  thicknesses  in  ascending  order. 

A trial  thickness. 

- Matrix  of  thicknesses  generated  during  shock  calculations. 

- Matrix  of  thicknesses  generated  during  vibration 
calculations. 

An  environment.-*!  temperature. 

Environmental  temperature. 

Maximum  allowed  shock  thickness. 

- Array  of  temperatures  stored  in  ascending  order. 

Thickness  predicted  by  shock  environment. 

Dynamic  array  which  contains  the  union  of  the  thick- 
nesses of  all  three  temperature  environments. 

- Weight  of  item  (lbs). 

Width  (in.). 

Height  (in.)  - shortest  dimension. 

Length  (in.)  - longest  dimension. 
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00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

00002b 

oono?b 


c 

c 

c 

C 

C 

C 

C 

C 

C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 


c 


c 


SUBROUTINE  CDPRO( XL , YL, 7L . TCON . t I , w I , NMATS , RHOC , MIC , NX  I , COST, 


I  MATSC  ,GM,OMJ,MOMJ,S,XDJ,IC,NlC) 

CUSnION  DESIGN  PROCEEOURE 

GM  — — MAX  G-AL1.0WA8LE  (FT./SEC/SEC) 

MATSC  — — VECTOR  OF  MATERIAL  CODES 
MIC  — MAX  ITERATIONS  FOR  WEIGHT  CONVERGENCE 

MX  I MAX  ITERATIONS  FOR  GM  CONVERGENCE 

NMATS— — NUMBER  OF  MATERIALS  TO  BE  CONSIDERED 

NS  NUMBER  OF  STRESSES 

NT  — NUMBER  OF  TEMPERATURES 

NTH  — — NUMBER  OF  THICKNESSES 

RHOC  — — SPEC.  W OF  CONTAINER  UNDER  CONSIDERATION  (PCI) 

RHOM  — SPEC.  W OF  MATERIAL  UNDER  CONSIDERATION  (PCI) 

SI  — — STATIC  STRESS  -CALCULATED 

TCON  THICKNESS  OF  CONTAINER  (INCHES) 

THI  -----  GUESS  THICKNESS  -C ALCULATFD 
TnIK  — — ARRAY  OF  THICKNESSFS  WORK  ARRAY 
THIKV— — ARRAY  OF  THICKNESSES  WORK  ARRAY 
T I — — INTERPOLATING  TEMPERATURE 

W I WEIGHT  OF  ITEM 

XL  WIDTH  (INCHES) 

YL  -----  HEIGHT  (INCHES) 

ZL  LENGTH  (INCHES) 


COMMON  /MMM/  MXIT(10»3,3) 

COMMON  /THK/  TSK,ITEM 

COMMON  /TEMPT/  TTHlK ( 10 , 3 , 11 ) , IM, I AXS , ITEMP, I JE, TMX 
COMMON  /N/  NT, NS, NTH, SI, THI, TUI 
DIMENSION  TI(3) 

DIMENSION  TH(10),SIG(10),T(10),TAB1(10,10,10),MAT8C(10),T8(10) 
DIMENSION  0MS(10),THlK(10,3),DII(S),THIKV(10, 3) , TAB2(10, 10, 10) 
DIMENSION  OMJ(H),XDJ(11),FE(10),S(10),AL(3),ALI(3),DL(3) 
EQUJVALENCE(TH,TS), (SIG,OMS),(T,FE) 

INTEGER  ORPH 


INTEGER  DH,DLH,DII 

DATA  Oil/  18,2*, 30, 3b, H8/ 

STATEMENT  FUNCTION  TO  CALCULATE  WEIGHT  CHANGES 
WF(T1,T2, T3,RC,RM)s5.*((RC*TC0N+RM*Tl)*(Z  + 2.* 

1 (Y  + 2 . *( TC0N+T1 ) ) ♦ (RC*TC0N+RM*T2)*(X  +2.* 

2 (7  +2.*(TC0N+T2) ) + (RC*TC0N+RM*T3)*( Y ♦ ?.* 

3 (X  +2 . * ( TC0N+T3) ) ) 


(TC0N+T1))* 
(TC0N+T2) )* 
(TC0N  + T3)  )* 


00010b 

itime  = 0 

00010? 

OWHso.o 

000110 

00  130  ITEMsi, ITEMP 

000111 

Till  = TI(ITEM) 

000113 

XDOAsGM 

000115 

AL(1)=ZL 

00011b 

AL(2)sZL 

0001) ? 

AL(3)=XL 

000120 

X = XL 

000121 

Ys  YL 

000122 

Z=ZL 

000123 

PRINT  11000 

00012b 

DO  50  IMal, NMATS 

000133 

MS  = MATSC ( IM) 

00013b 

REWIND  MS 

0001*C 

DO  * I AXS  = 1, 3 
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0001*3 
000150 
000150 
0001G2 
00015* 
000155 
00015b 
00015b 
00015? 
OOOlbO 
OOOlbl 
OOOlbS 
000) b* 
OOOlbS 
000170 
000173 
00017b 
000307 
000311 
00031b 
000317 
000333 
00033b 
000333 
00033b 
0003*3 
000355 
0003b  3 
0003b* 
0003b* 
0002bb 
000303 
000315 
000330 
0003*3 
00035b 
0003b3 
0003b* 
000*13 
000*33 

000*37 

000**3 

000**3 

000*** 

000*5b 

000*b0 

000*bb 

000*?b 

000500 

000501 

000503 

000511 

00051* 

00051? 

000531 


* THIKVUM,  IAXS)aO.O 
5 CONTINUE 
THl*3.5 

ThIK(IM,1)=THI 

THIK(IM,3)sJMI 

thik(im,3)=th: 

DLH=0 
T 1 = THI 
T3=  THI 
T3«  THI 
TT 1*  T 1 
TT3=  T3 
TT3=  T3 

0L(1)=  3.*(THI  ♦ TCON) 

DL(3)s  3.*(THI  ♦ TCON) 

DL(3)s  3.*(THI  * TCON) 

READ(MS,13)RH0M,DRPH,IC0DE 
RHOMsRHOM/13.**3 
DO  lb  ICOUNTsl'MIC 
DO  15  lAXSsl,3 
THl*THIK(IM, IAX8) 

ALI(IAXS)-AL(IAX3)+DL(IAX3) 

IF(lAX3.EQ.l)AaY*Z 

IF(IAX3.EQ.3)Asx*Z 

IF(IAX3.EQ.3)A*Y*X 

WW  a W I ♦ WF(TT1,TT3,TT3,RH0C,RH0M)  + DWB 
DH=  DHGHTiWWf ALI(IAXS)) 

I J = 0 

11  CONTINUE 
IJsIJ+1 

IF (IJ.GT.*) PRINT  10000 

READ(H3,3U)NT,NTH,NS 

READ(M3#10)(TCI),Isl#NT) 

READ(M3#10)CTH(I)» 1*1, NTH) 

READ(M3»10)(3IG(I)» I = 1 » NS ) 

DO  1000  K=1,NT 
DO  1000  IslrNTH 

1000  PEAD(H3»1U)(TAB1(I»J»K)» Jsl,N3> 

ir(DH.NE.DlICIJ))READ(M3rl3)RH0»'f  ^nPHdCODE 
IF(DH.NE. DII(IJ)) 
lRH0M=RH0M/ia.**3 
IF(DH.NE.DII(IJ))GO  TO  11 
13  CONTINUE 
REWIND  MS 

READ(M3rl3)RH0M,DRPHr ICODE 

RHOM=RHOM/13.**3 

3ISWI/A 

THIK(IM, IAXS)=  SH0CKE(TABl,TH,3IG,T,GM,MXI) 

TT1  a THIK(IMrl) 

TT3  a THIK(IM,3!' 

TT3  a THIK(IM,3) 

DL(l)a?.*(TT3+TC0N) 

DL(3)s3,*(TT3+TC0N) 

DL(3)=3.*(TT1*TC0N) 

C CALCULATE  DELTA  LENGTH  FOR  LONGEST  DIMENSION 
15  CONTINUE 

IF(AB3(T1-TT1).LE.1.E-1.AND.ABSCT3-TT3).LE.1.E-1.AND,AB3(T3-TT3). 
1 LE.l.E-1)  GO  TO  *5 
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0005*5 
0005b* 
000  5 b b 
0005b? 
0005?! 

0005?? 
000b05 
O.IOblO 
OOObl* 
OOObl* 
OOCbl 7 
OOC'bSO 
000521 
OUltb  ? 3 
OOObEb 

UCOb** 

OOObSO 

00005**- 

000b5? 

OOObbO 

COUbbS 

OOtlbb* 
OGObbb 
000070 
000701 
000713 
000720 
0007*1 
00075* 
000  ?b 1 
000  7b2 
001012 


00.015 

00101b 

001021 

001022 

001033 

001Q*b 

OOlObl 

OOlObh 

00.1101 

001107 

001111 

00112* 

001132 

0011?* 

0011*1 

nii*s 

001151 
0U1 155 
00115b 
00115b 


PRINT  ?001,T1,T2,T3,TT1,TT2,TT3 
T 1 = TT1 
T2  = TT2 
T3  = TT3 
lb  CONTINUE 

C PRINT  APPROPRIATE  MESSAGE  FOR  NON-CONVERGENCE 

PRINT  700U , MA  TSC ( IM  } 

MATSC(IM)=0 
GO  TO  50 
*5  CONTINUE 

IF(TT3.LE.TMX)G0  TO  50 
ITIME  = ITIME+1 
IFCITIME.NE.DGO  TO  50 
REWIND  MS 
Y=YL+2.*T2 

PRINT  800U,XL,Y,ZL, Y,IM 

C CALCULATE  WEIGHT  OF  (1./*)  INCH  PLYWOOD  FOR  EACH  AXIS 
DW8  = 0.00S8*(Y*Z  ♦ Y*X  ) 

GO  TO  5 
50  CONTINUE 
C 

DO  5b  IM=1,NMATS 
IF(MATSC(IM).EQ.OIGO  TO  Sb 
MSs  -IATSC(IM) 

C READ  TO  BEGINNING  OF  VIBRATION  FILES 
REWIND  MS 
DO  55  IR=1,* 

READ(MS,12)RH0M,DRPH, ICODE 

REA0(MS,20)NT,NTH,NS 

READ(MS,10)(T(I),I=1,NT) 

READ(MS,1U)(TH(I),I=1,NTH) 

READ(MS,1U)(SIG(I),I=1,NS) 

DO  55  K=1,NT 
00  55  1=1, NTH 

55  READ(MS,J0)(TAB1(I,J,K),J=1,NS) 

5b  CONTINUE 

C CALCULATE  THICKNESS  FROM  VIBRATION  ENVIRONMENT 

V# 

DO  100  IM=1,NMATS 
MS=MATSC(IM) 

IF (MS.EQ.U)GO  TO  100 

READ(MS,12)RH0M,MTS,M0MS 

READ(MS.1*)(TS(I),I=1,MTS) 

RE  AD  (MS,  1*  HOMS  (I),  1 = 1,  MOMS) 

DO  bO  1=1, MOMS 

READ(MS,l*)CTABl(l,J, 1),J=1,MTS) 
bu  CONTINUE 

DO  b 5 1 = 1, MOMS 

READ(MS,1*)(TAB2CI,J,1),J*1,MTS) 

b5  CONTINUE 

DO  70  I A XS  = 1 , 3 
ThIkV(IM,IAXS)=THIK(IM, IAXS) 

IP(IAXS.E0.1)A=Y*Z 
IF(IAXS.Eu.2)A=X*Z 
IF(IAXS.EQ.3)A=Y*X 
WWsW  I 

bS  CONTINUE 

TSK=TMIKV(IM,IAXS) 
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ooiib2 

CALL  VIBRTNdABl,TAB2,T3,0M3,T0P,0MJ,FE,M0MJ,XDDA, A,WW,S, IC,XDJ) 

001202 

I F ( IJE,EQ.0)GU  TO  75 

001207 

THIKVdM,IAXS)*TSK 

001213 

70 

CONTINUE 

001211 

r 

75 

CONTINUE 

001211 

L 

IF(IJE.EQ.0)MAT3C(IMJs0 

001220 

100 

CONTINUE 

c 

PRINT  THICKEjSES 

001223 

PRINT  50no,(dHIKVd,  J),  J = l,3),  I = 1»NMATS) 

c 

ELIMINATE  MATERIALS  THAT  00  NOT  OVERLAP  ALL  TEMP  REGIONS 

001212 

IK  = 0 

c 

UP-DATE  THICKNESS  ARRAY 

0012*13 

00  120  IM=1, NMATS 

0012S0 

IF(MATSCCIM).EQ.O)  GO  TO  120 

001252 

IKsIK+1 

001251 

DO  110  I A*i , 3 

001255 

MXXaMXITdM,  IA,  ITEM) 

001 2bc 

DO  110  IU-1 , MXX 

0012b1 

TTHlKdK,IA,IU)  = TTHIK(lM,IA,IU) 

001275 

MXlTdK,IA,IT£M)*MXX 

001301 

IF(ITEMP.EQ.1)G0  TO  HO 

001303 

MXIHIK,IA,ITEM-1)sMXIT(IM,IA,ITEM-.1) 

001312 

110 

CONTINUE 

001317 

120 

CONTINUE 

c 

SORT  OUT  DELETIONS 

001322 

00  125  1=1, NMATS 

001323 

DO  12?  J=I, NMATS 

001321 

IF(MATSC(J).LT.MATSC(I))GO  TO  125 

001330 

SAVE  = MATSC(J) 

001332 

MATSC(J)sMATSCd) 

001335 

MATSC d )*S A VE 

001310 

125 

CONTINUE 

001315 

NMATS  = IK 

00131b 

IF(NMATS.NE.O)GO  TO  12b 

001317 

PRINT  bOOO 

001352 

TI(1)=1500. 

001357 

RETURN 

0013b0 

12b 

CONTINUE 

c 

SORT  MATSC(I)  BACK  INTO  ASCENDING  ORDER 

OOlSbO 

DO  127  1*1, NMATS 

001 3b2 

DO  127  J*I, NMATS 

0013b3 

IF(MATSCCJ).GT,MATSC(I))GO  TO  127 

001370 

SAVEsMATSCCJ) 

001372 

MATSC(J)*MATSC(I) 

001375 

MATSCCI)*SAVE 

001377 

127 

CONTINUE 

001101 

130 

CONTINUE 

00110b 

DO  135  1*1, NMATS 

001110 

DO  135  I A*1 , 3 

001111 

MXII*MXIT(I,IA,ITEMP) 

00111b 

IF(ITEMP.E0.1)MXII*1 

001121 

THIKVd,IA)*TTHIK(I,lA,MXII) 

001131 

135 

CONTINUE 

00113b 

CALL  COSTMT (THIKV,X  ,Y  ,Z  ,TCON,THIK  , MATSC, NMATS, COST, NIC) 

001151 

RETURN 

001152 

10 

FORMAT (1 1E7.0) 

001152 

12 

F0RMATCE7, 0,512) 
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ooitss  14  format ciieii  .4) 

001458  20  F0RMAT(5I2) 

001452  5000  F0RMAT(2X,3SHMINIMUM  THICKNESS  FOR  MATERIAL  BY  AXIS  / 

1 10(2X,3E15.4/)) 

001452  bOOO  F0RMAT(1X,5BH  ALL  MATERIALS  DELETED  — NO  OVERLAP  BETWEEN  TEMPERA 
1TUPES  2RH-0PTIMIZE  ON  DATA  ACCUMULATED  ) 

001452  7000  F0R>AT(S5H  CAN  NOT  DETERMINE  THICKNESS  FOR  OROP  HGT.  CALCULATIONS 

1 2X.1SHMATERIAL  CODE  =1 3 , 2X, 21HTHIS  MATERIAL  DELETED) 

001452  ?OtU  F0RMAT(2X,3HTl3E11.4,2X,3HT2*EU.4,2X,3HT3«E11.4, 

1 2X,4HTTl=E11.4,gX#4HTT2xE11.4,2X,4HTT3*E11.4) 

001452  8000  FORMAT (2X»30HPLYW00D  BEARING  BOARD  1/4  INCH/ 

13X» 10HDIMENSI0NS  FS.2,3H  X F5 . 2, 2X , bHSIDE  3 

23X,10HDIM£NSI0NS  F5.2,3H  X FS . 2 , 2X , bHSIDE  1 3X, 1SHMATERI AL  NUMBER 


001452 

3 13) 

10000  F0RMAT(1H0 

25HCAN  NOT 

FIND  DROP  HEIGHT 

) 

003452 

11000  format  (/ 

1 20 ( 1H*) / 

) 

END 

I 
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COPRO 


SUBPROGRAM  LENGTH 

oobose 


FUNCTION  ASSIGNMENTS 
HF  - U00034 


STATEMENT  ASSIGNMENTS 


4 

« 

000142 

5 

- 

000150 

12 

- 

001470 

13 

m 

000442 

45 

- 

000bl4 

50 

- 

000b54 

75 

- 

001214 

100 

m 

001220 

125 

- 

001340 

12b 

- 

OOlSbO 

bOOO 

« 

001511 

7000 

m 

001525 

lOOOO 

“ 

OOlfaOS 

11000 

• 

OOlblO 

BLOCK 

NAMES  AND  LENGTHS 

MMM 

000132 

THK 

- 

000002 

VARIABLE 

ASSIGNMENTS 

A 

- 

00bC12 

AL 

m 

00575b 

DH 

- 

005770 

DII 

m 

003743 

DRPH 

- 

0057b7 

DWB 

m 

00577b 

I 

- 

OObOlS 

IA 

«■ 

00b025 

ICODE 

- 

OObOlO 

ICOUNT 

■i 

nobon 

IK 

m 

00b024 

IM 

m 

000512C0  3 

I TEMP 

m 

000514C03 

ITIME 

m 

005775 

K 

m 

OObOlb 

MATSC 

m 

000005 

MOMS 

m 

005022 

MS 

m 

OOfaOOO 

MX  1 1 

m 

005031 

MXIT 

m 

OOOQOOCOl 

NMATS 

m 

000000 

NS 

m 

OOOOOlCO't 

OMJ 

m 

000007 

OMS 

m 

001711 

S 

a 

000011 

SAVE 

m 

00b030 

T 

m 

001723 

TABl 

m 

001735 

THI 

m 

000004C04 

THIK 

m 

003705 

TMX 

m 

00051faCU3 

TOP 

m 

00b023 

TTHIK 

m 

U000Q0C03 

TT1 

m 

00b004 

Tl 

■> 

OObOOl 

T2 

m 

00b002 

X 

• 

005774 

XDOA 

m 

00577? 

z 

m 

005772 

START  OF  CONSTANTS 
U014S4 


START  OF  TEMPORARIES 

ooibia 

START  OF  INDIRECTS 
001b?l 

UNUSED  COMPILER  SPACE 
OSbSOO 


10 

m 

0014bb 

11 

- 

0002b4 

14 

• 

001473 

20 

• 

00147b 

Sb 

• 

001012 

bS 

- 

00115b 

110 

m 

001312 

120 

- 

00131? 

12? 

m 

00137? 

5000 

• 

001S00 

7001 

• 

001542 

8000 

- 

00155b 

TEMPT 

* 

00051? 

N 

m 

00000b 

ALI 

0057b  1 

COST 

m 

000004 

DL 

m 

00S7b4 

DLH 

- 

005771 

FE 

m 

001723 

GM 

• 

00000b 

I AXS 

m 

000513C03 

IC 

000013 

IJ 

m 

00b014 

IJE 

m 

000515C03 

IR 

m 

00b020 

ITEM 

m 

000001C02 

IU 

m 

00b02? 

J 

m 

OObOl? 

MIC 

m 

000002 

MOM  J 

m 

000010 

MTS 

m 

00b021 

MXI 

m 

000003 

MXX 

m 

00b02b 

NIC 

m 

000014 

NT 

m 

000000C04 

NTH 

m 

000002C04 

RHOC 

m 

000001 

PHOM 

m 

OObOO? 

SI 

m 

000003C04 

SIG 

m 

001711 

TAB2 

m 

00400b 

TH 

m 

001b?7 

THIKV 

m 

003750 

Till 

m 

000005C04 

TS 

m 

001b?? 

TSK 

m 

000000C02 

TT2 

m 

00b005 

TT3 

m 

OObOOb 

T3 

m 

OObOOS 

WH 

m 

0 0b013 

XDJ 

m 

000012 

Y 

m 

005773 

DHGHT  - Function  Subprogram 


Usage: 


Picks  drop  height  using  criterion  set  forth  in  the 
MIL- Standard. 


Subroutines  called; 
None 
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ALL  - - 

DH  - - - 

DHH(I) 

DHL  (I) 
DHW(I) 

WW  - - - 


Glossary  of  Variables  for  DHGHT 

- - Item  length  + container  and  cushion  thickness, 

- - Calculated  drop  height. 

Drop  height. 

- Drop  height  longest  length. 

- - Drop  height  upper  weight  limit. 

Item  weight  + container  and  cushion  weight. 


uonoos 


000005 

ooooos 

0000P5 

jOOO? 
UOOOGb 
9000]  1 
joorie 
i.00013 
000013 
C00017 
000021 
000023 
000025 
00002S 
000027 
000031 
000033 
00003* 


FUNCTION  PHGHT(WW, At L T 
DIMENSION  DHw(7),DHL(7),DHh(7) 


C ALL------  ITEM  LENGTH  + CONTAINER  ANL)  CUSHION 

c UHH- DROP  HEIGHT 

C OhL— — — OROP  HEIGHT  MAXIMUM  LENGTH 

C DHW----  — DROP  HEIGHT  UPPER  HEIGHT  LIMIT 

C Wm  ......  HEM  WEIGHT  * CONTAINER  AND  CUSHION 


DATA  DH W/ 100. >100. ,200., 200. >1 000. ,1 000. #1000 
DATA  DHL/ 3b. , 500. ,3b. ,500. , 3b. , bO. ,feOO  ./ 

C DATA  0HH/+8 . , 30. #30. *2*. *2*. , 3b. #2*./ 

DATA  DHH/3b.  , 30.  #30, , ?*.  » 2 + . *3fa,  ,2*.  / 

C THIS  FUNCTION  PICKS  THE  APPROPRIATE  DROP 

Ohs  ifl. 

IF(WW.Ur.lOOO. )G0  TO  20 
00  10  1=1,7 

1 1=  I 

7 CONTINUE 

IF(WW,GT.DHW(II))G0  TO  10 
Ip (ALL.LT.DHL< II))GO  TO  IB 
IF(DHW(II).lT.DHW(II*1))G0  TO  18 
11=11+1 
GO  TO  7 
10  CONTINUE 
18  Oh=DHH(II) 

20  0HGHT=DH+u.1 
RETURN 
END 


THICKNESS 


WEIGHT 

/ 


HEIGHT 
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DH6HT 


SUBPROGRAM  LENGTH 
OOOlOl 

FUNCTION  ASSIGNMENTS 

statement  assignments 


7 - 000013  10 

• 000025 

IB 

• 00002? 

20 

- 000031 

BLOCK  NAMES  AND  LENGTHS 

VARIABLE  ASSIGNMENTS 
DH  - 00007b  DHGHT 

- 000050 

OHH 

- 0000 be 

OHL 

- OOOflbC 

dkw  - oooon  I 

- 000077 

II 

- 000100 

start  OF  CONSTANTS 
00003b 


START  OF  TEMPORARIES 
000012 

START  OF  INDIRECT3 
000011 

UNUSED  COMPILER  SPACE 
013300 


COSTMT  - Subroutine 


Usage: 

(1)  Calculates  cost  of  packing  materials  by  axis. 

(2)  Calculates  cost  of  container. 

(3)  Calculates  cost  of  fabrication  of  package  material. 

(4)  Calculates  total  cost. 

(5)  Prints  total  cost  and  cost  by  material  and  axis. 
Subroutines  called: 


MINCOS 


C»lG3  sa»  y o{  -\  a ''  ablfcri  IC7  CC3T-M  T 
AL(I)  - - - - Area  of  the  perpendicular  face  of  -he  package. 

Cl  -----  - Cost  of  Tia'a  ■ l<t'i  o.:  fare  or  e. 

C2  -----  - Cost  of  material  on  face  two. 

C3  ------  Cost  of  material  or.  face  three. 

C12  ------  Contains  the  minimum  cost  between  the  materials 

on  face  one  and  face  two. 

C13-  - - - - - Contains  the  minimum  cost  between  the  materials 

on  face  one  and  face  three, 

C23  ------  Contains  the  minimum  cost  between  the  materials 

on  face  two  and  face  three, 

C123  -----  Contains  the  lowest  cost  of  the  three  materials, 

CAXIS(I,  1)  - Cost  of  the  packaging  material  for  face  one, 

CAXIS(I,  2)  - - Cost  of  the  packaging  materialfo:  face  two. 

CAXIS(I,  3)  - - - Cost  of  the  packaging  material  for  face  three, 

CF  (I)  - - - - - Array  containing  cost  of  fabrication  to  specific 

dimensions, 

CFF  -----  Cost  of  fabrication. 

CM  (I)  -----  Array  containing  material  cost. 

COST  ------  Total  cost, 

CP  (I)  - - - - Array  containing  the  cost  of  packaging. 

CPP  - - - . Cost  of  packaging, 

CSS  -----  Cost  of  shipping  the  package. 

CVC  -----  Cost  of  material  for  corners. 

II  (I)  -----  Contains  array  positions  of  optimum  thicknes s for 

each  of  the  three  faces. 
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Glossary  of  Variables  for  COSTMT  ( Contd.  ) 


MC  M Contains  material  code  for  each  of  the  three  faces. 

MTC  - Material  code. 

SLT  (I)  - - - - - Safe  low  temperature. 

Optimum  thickness  for  face  one. 

------  Optimum  thickness  for  face  two. 

Optimum  thickness  for  face  three. 

TCG  - Total  cost  of  container  by  volume. 

TCMV  ■ Total  cost  of  material  by  volume. 

V1 Volume  of  packaging  material  needed  for  fac>  one. 

- Volume  of  packaging  material  needed  for  face  two. 

v3 Volume  of  packaging  material  needed  for  face  three. 


00001S 

OOOOIS 

000015 

OOOOIS 

OOOOIS 

OOOOIS 

OOOOIS 

OOOOIS 

00001b 

000017 

000021 

000022 

00002S 

00002? 

000032 

00003* 

0000*0 

0000*2 

0000*5 

300050 

0000S2 

OOOOS? 

OOOObl 

0000b* 

OOGObb 

0000b? 

000070 

000072 

000102 

000110 

00011S 

000123 

00012S 

00012b 

000130 


SUBROUTINE  COST  MT(TH!KV,XL» VL,ZL,TCON,CAXlS,MATSC,NMATS,COST, IC) 


C CC  — — 1-0  ARRAY  COST/ UN I T VOLUME  OF  CONTAINER  MATERIAL 

C CF i-l)  ARRAY  CONTAINING  COST  OF  FABRICATION  TO 

C SPECIFIC  DIMENSION  (O.OS-MIN) 

C Cl  COST  OF  ITEM 

c CM  -----  1-0  APRAY  CONTAINING  MATERIAL  COST/UNIT  VOLUME 
C COSTMT 

C CP  — — 1-D  ARRAY  COST  OF  PACKING  ITEM  FOR  SHIPMENT 

C CS  COST  OF  SHIPMENT 

C GAMAC  — — 1-D  ARRAY  CONTAINING  SPECIFIC  WEIGHT  OF  CONTAINER 
C MATERIAL 

C R0S1  — — 1-D  ARRAY  LOW  END  OF  THE  RANGE  OF  OPTIMUM 
C STRESS  OF  EACH  MATERIAL 

C R0S2  — — 1-D  ARRAY  HIGH  END  OF  THE  RANGE  OF  OPTIMUM 
C STRESS  OF  EACH  MATERIAL 

C SLT  — - 1-D  ARRAY  OF  SAFE  LOW  TEMPERATURE  FOR  EACH  MATERIAL 
COMMON  /COSIM/  CA(10,?),CD(10,2),CS,CI,wII 
COMMON  /OPT/  11,12, 13, Tl,T2,T3 


DIMENSION  MATSC(IO) 

DIMENSION  CM(10),CF(10),CP(10),SLT(10),ROS1(10),ROS2(10),MC(3) 
DIMENSION  GAMAC(10),CC(10),THIKV(10,3),CAXIS(10,3),ALC3),IIO) 
EQUIVALENCE  (CA( 1 , 1) ,CM) , (CA( 1,2) ,CF), (CA(1, 3) ,CP), (CA(1, *} , SLT) , 
1 CCA(l,S),R0Sl),(CA(l,b),R0S2) 

EQUIVALENCE  (CD( 1 , 1) , GAMAC) , (CD(1, 2), CC), (MC, AL) 

AL(l)  =ZL*YL 
AL(2)=ZL*XL 
AL(3)=XL*YL 
DO  20  !=1,NMAT3 
mTC=MATSC(I) 

V1=AL(1)*THIKV(I,1) 

V2sAl(2)*TmIKV(I,2) 

V3=AL(3)*THIKV(I,3) 

CAXIS(I,1)*V1*CM(MTC) 

CAXI3(I,2)=V2*CM(MTC) 

CAXISC I,3)=V3*CM'MTC) 

20  CONTINUE 

CALL  HINC0S(II,1  iS,NMATS^ 

C DETERMINE  COST  OF  PACKING  MATERIAL 
DO  30  1=1,3 

C II(I)  CONTAINS  ARRAY  POSITIONS 

IL=II(I) 

C MC ( I ) CONTAINS  MAT.  CODE 

MC(I)=MATSC(IL) 

30  CONTINUE 

C I,J,K  contains  MAT.  CODE 

I =MC ( 1 ) 

J=MC(2) 

K=MC( 3 ) 

C CALCULATE  MIN.  COST  FOR  CORNER  AND  EDGE  CUSHIONING 
C123sAMINl(CM(IT,CM( J),CM(K)) 

C12=AMIN1(CM(I),CM(J)) 

C13=AMIN1(CM(I),CM(K)) 

C23=AMIN1(CM( J),CM(K)) 

11=11(1) 

12=11(2) 

13=11(3) 

T1=THIK V ( I 1, 1 ) 
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0 U Q J 3d 
00<U  35 

00013? 

00015* 

000221 

000232 

000237 

0002** 

000252 


000  315 


00P332 

0003*b 

00035* 

000*11 

000*12 


000*12 


000*12 


T2=THIKV(I2,2) 

T3=ThIKV(I3,3) 

CSS=(ZL*YL*T1*CA(I1,?)*ZL*XL*T2*CA(I2, 7 ) + XL*YL*T3*C A f 1 3 , 7) ) *CS 
1 * CS*WII 

PRINT  2000,MC(1),THIKV( II , 1 ) * MC (2 ) , TH1KV (12 , 2 ) , MC ( 3) , THI K V ( 13 , 3 ) 
Cl»ZL*rHlKV(Il,l)*THlKV(I2,2)*C12 
C2  sxl*THIKV(I2,2)*THIKV(I3,3)*C23 
f 3 = YL*THI«V(I3,3)*THIKV(U,1)*C13 
CVCsTHIKVUl,l)*THlKV(I2,2)*THlKV(I3,3)*C123 
C TOTAL  COST  OF  MATERIAL  BY  VOLUMF 

TCMVsa.*(CAXlS(Il,l)+CAXlS(I2,2) >C AX IS( 1 3 , 3 ) ) 

1 ♦8.«CVC**.*(C1*C2+C3) 

C TOTAL  cost  of  container  by  volume 

TCC=CC(IC)*TCUN«(2,*(7L+2.*TMIKV(I3,3))*(YL*2.*TMIKV(I2,2))+ 

1 2.*(ZL*2.*THIKV(I3,3))*(XL*2.*THIKV(I1,1))* 

2 2.*(XL+2.*THIKV(I1,1))*(YL*2.*THIKV(I2,2))) 

C COST  OF  FABRICATION  BASED  ON  A RATE  OF  3 INCHES/MIN  AND  THE  ASSUMPTION 

'J  THAT  IT  TAKES  1/2  AS  MUCH  TIME  TO  CUT  THE  EDGE  FILLER  AS  TO  CUT 

C ThE  SURFACE. 

CFFs2.*(CF(I)*(ZL*YL)*CF(J)*(XL+ZL)+CF(K)*(XL+YL)) 

C TOTAL  cost 

CPP*b.*(LP(I)*(ZL+YL)*CP(J)*(XL*ZL)+CP(K)*(XL*YL)) 
COSTsTCMV+TCC+CFF*CSS*C I+CPP 
C TO  BE  CONTINUED  LATER  ********* 

PRINT  1000,  C0ST,(MATSC(lA),(CAXIS(lA,JA),JAel,3),IAsl,NMATS) 

RETURN 

1000  FORMAT (2X,lbHT0TAL  C0ST/ITEM*F8. 2, /,2X,12HMI NCOS- INPUT  / 

1 2X,*bHC0ST  MATRIX-MATERIAL  VERT ICAL, AX  IS  HORIZONTAL  / 

2 10(2X,I2,2X,F8.2,2X,F8.2,2X,FB.2/)) 

2000  F0RMAT(2X, 15HMATERIAL  CODE  = I*,2X,2*HTHlCKNE3S  FOR  FACE  ONE  *F8.3 

1 , 1 X , bHI NCHES/ 

2 2X, IShMATERlAL  CODE  = I*,2X,2*HThlCKNESS  FOR  FACE  TWO  =F0.3 

3 , '.X,  bHlNCHES/ 

* 2X,15hMATERlAL  CODE  * I*,2X, 25HTHICKNESS  FOR  FACE  THREE* 

5 F3.3,lX,bHlNCHES/) 

END 
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COSTMT 


SUBPROGRAM  LENGTH 
000701 


FUNCTION  ASSIGNMENT  3 


STATEMENT  ASSIGNMENTS 
1000  - 000132  2000 


BLOCK  NAMES  AND  lengths 
COSTM  - 000135  OPT 


variable 

AL 

CF 

COST 
CSS 
C123 
C3 
IC 
12 
K 

NMATS 
TCC 
T3 
Nil 


ASSIGNMENTS 
OOObll  CA 
000012C01  CFF 
000002  CP 
OOObbb  CVC 
000bb2  C13 

000b  71  GAMAC 
000003  II 
000001C03  13 
OOObbl  MATSC 

oonooi  rosi 

0 0 0 b 7.1  TCMV 
000005C02  VI 
000131C01 


START  OF  CONSTANTS 
000111 


000111 


00000b 


OOOOOOCC1  cc 
000b75  Cl 
000021C01  CPP 
000b72  Cl 
OOObbl  C2 
OOOlObCOl  I 
000b17  IL 
000002C02  J 
000000  MC 
000050C01  R0S2 
000b73  T 1 
OOObSI  V2 


START  OF  TEMPORARIES 
000510 


START  OF  INOIRECTS 
000571 


UNUi'ED  COMPILER  SPACE 
0 11  0 0 


000120C01  CD 
0001 33C01  CM 
000b7b  CS 
000bb7  C12 

000b70  C23 

000b52  IA 
OOObS?  n 
OOObbO  JA 
OOObll  MTC 
OOOObBCOl  SLT 
OOf. 00  3C02  T2 
OOObSS  V3 


- OOOlObCOl 

- OOOOOOCCi 

- 000132C01 

- 000bb3 

- OOObbS 

- 000b?7 

- 000000 C 02 

- 000700 

- 000b53 

- 00003bC01 

- 000001C02 

- OOObSb 
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v*  1M 


MINCOS  - Subroutine 


Usage: 

Picks  the  material  that  has  the  minimum  cost  for 
each  axis. 

Subroutines  called: 

None 
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Glossary  of  Variables  for  MINCOS 


CAXIS  (1,  J)  - 
IT(I)  - - - - 

sit  a)  - - . 


- Cost  of  packaging  material  for  all  tnree  faces. 

Contains  array  positions  of  optimum  thicknesses  for 
each  face. 

- Work  array  used  for  sorting. 
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SUBH0U1  INE  MlNCOSni,CAX]S,NMATS) 

C 

MIN  C03T 

C 

SUBROUTINE  PICKS  THE  MATE' I AL  FOR  EACH  AXT3-WHICH 

c 

HAS  THE  MINIMUM  COST 

00000b 

DIMENSION  II(1),CAXIS(10,3),SIT(1Q) 

00000b 

00  50  I AX  I S = 1 r 3 

00000? 

00  30  1=1 /NMATS  1 

000010 

30 

SIT(I)=CAXI3(I,IAXIS) 

000020 

II(lAXIS)=l 

000022 

00  40  IM=1 / NMATS 

000024 

IF(SIT(1).LT»SIT(IM))  GO  TO  HO 

00002? 

1 1 ( I AX IS)  = IM 

OOC  031 

S AVE=S I T ( 1 ) 

000032 

S1T(1)=SIT(IM) 

000033 

SIT(IM)=SAVF. 

000034 

40 

CONTINUE 

C0U03? 

50 

CONTINUE 

000041 

RETURN 

000041 

END 

MINCOS 


subprogram  length 

Q00070 

FUNCTION  ASSIGNMENTS 

STATEMENT  ASSIGNMENTS 

30  - 000010  HO  - 00003H 

BLOCK  NAMES  AND  LENGTHS 

VARIABLE  ASSIGNMENTS 

I - OOOObS  I AXIS  - OOOObH  IM  - OORObb  SAVE  - 000057 

SIT  - 000052 

START  OF  CONSTANTS 

OOOOH3 

START  OF  TEMPORARIES 
OOOOHH 

START  OF  INRIRECTS 
QOQQHb 

UNUSED  COMPILER  SPACE 
0H3H00 
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SHOCKE  - Function  Subprogram 


Usage: 

Calculates  the  material  thickness  required  to  protect 
the  packaged  item  in  the  given  shock  environment. 

Procedure: 

(1)  Given:  a table  G = F (thickness,  static  stress), 

(2)  build  a one-dimensional  table  thickness  = F (G). 

(3)  Interpolate  or  extrapolate  to  find  desired  thickness. 

Subprograms  called: 

LAG1NT 

FLAGR 
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Glossary  of  Variables  for  SHOCKE 


F2  (I)  -----  1 -D  array  of  interpolated  accelerations. 

G ------  Interpolated  acceleration. 

GM  ------  Fragility  limit  (acceleration). 

NS  ------  Number  of  static  stresses  stored  on  file. 

NT  ------  Number  of  temperatures  stored  on  file. 

NTH  - Number  of  thicknesses. 

SI  ------  Interpolating  stress. 

SIG(I)  -----  1-D  table  of  static  stresses  (W/A). 

T (I)  -----  1-D  table  of  temperatures. 

TAB1  (I,  J,  K)  - - 3-D  table  of  peak  accelerations 

G = F (TH,  SIG,  T). 

TF(I)  -----  1-D  array  of  guess  thicknesses. 

TH(I)  -----  1-D  table  of  thickness  values. 

THI  ------  Guess  thickness. 

TI  -----  - Interpolating  temperature. 
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000011 

000011 

000011 


ore.  . . 

0 0 „ j c 1 

00001  3 
00001“ 
0000  1 h 
0000  21 
000021 
000033 
000035 
O'JOOH 
00lC“5 
0U0015 
000017 
000017 


FUNCTION  SH0CKE(TA81,TH,SIG»T,GM,MXI) 

COMMON  /N/  NT,NS,NTH,SI,THl,Tl 

DIMENSION  TABl(10»10»10)»TH(10)*SlG(in)»T(in)»F(10) 

DIMENSION  TF (5) »F2(5) 

C GM  — FRAGILITY  LIMIT  (ACCELERATION) 

C NS  --  NUMBER  CF  STRESSES  MUST  BE  AT  LEAST  3 UNLESS  EXTRAPOLATING 

C THEN  2 ARE  NEEDED 

c nt  — number  of  temperatures  must  be  at  least  i 

c NTH  — number  OF  THICKNESS  VALUES  MUST  BE  AT  LEAST  3 

C T 1-D  TABLE  OF  TEMPERATURES  (FAHRENHEIT) 

C TA81--3-D  TABLE  OF  PEAK  ACCELERATIONS  G=F(TH,SIG, T) 

c th  --  i-D  table  of  thickness  values  (pts.  at  which  data  was  taken) 

C.  THI  --  (INITIAL  THICKNESS)  (GUESS) 

C T I --  (TEMPERATURE)  INTERPOLATING  VALUE 
C SI  --  (STRESS)  INTERPOLATING  VALUE 

C SIG  --  1-0  TA8LE  OF  STATIC  STRESS  W/A  (PTS.  AT  WHICH  DATA  WAS  TAKEN) 

c unless  extrapolating- -then  2 are  needed 
110  continue 

DO  120  1 = 1, S 

ThI=FL0AT ( I ) 

TF(I)=FLOAT(I> 

CALL  LAGINT(TAB1,T,8IG,TH,G,F) 

F2(I)=G 

IF(ABS(G-GM).LT.0.1)G0  to  15 
1 2 IJ  CONTINUE 

Sh0CKE=FLAGR(5,F2,TF,GM) 

RETURN 
IS  CONTINUE 
SHCCKE=THI 
RE  1 URN 
fcND 


SHOCKE 


subprogram  length 
000112 

FUNCTION  ASSIGNMENTS 
STATEMENT  ASSIGNMENTS 


IS  - 0000*5  110 

BLOCK  NAMES  AND  LENGTHS 
N - 00000b 

- 000011 

VARIABLE  ASSIGNMENTS 

F - 0000b*  F2 

- 00C103 

G 

- 000111  I 

- nooiio 

SHOCKE  - OOOObS  TF 

- 00007b 

THI 

- 000004C01 

START  OF  CONSTANTS 
U00051 


START  OF  TEMPORARIES 
00005* 

START  OF  IN0IRECT3 
OOOOba 

UNUSED  COMPILER  SPACE 
0*3300 
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VIBRTN  - Subroutine 


Usage: 


(1)  Determines  thickness  needed  to  protect  in  the 
vibration  environment. 

(2)  Determines  the  union  of  the  temperature 
dependent  thicknesses. 

Options: 

■1)  Physical  optimization  based  on  MIL-STD-810B 
excitation. 

(2)  Physical  optimization  based  on  multiple  sine 
excitation. 

(3)  Physical  optimization  based  on  random  excitation. 

Subroutines  called: 


LAGINT 
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Glossary  of  Variables  for  'vTBRTN 
A -------  Support  area  of  item  (sq  in.). 

AT  -------  Environmental  temperature. 

ERI  ------  Modulus  at  center  frequency. 

ERJ  ------  Modulus  at  environmental  frequency. 

FE(I)  ------  rork  - vector. 

IC  -------  Procedure  code. 

IC  = 1 - - - - - - MIL-STD-810B  excitation. 

IC  = 2 - - - - - - Multiple  sine  excitation. 

IC  = 3 - - - - --  Random  excitation. 

MOMJ  ------  Number  of  input  environment  frequencies. 

MOMS  ------  Number  of  frequencies  r ' >red  on  data  files. 

MTS  ------  Number  of  temperatures  stored  on  data  file. 

MXI  ( I,  J,  K)  - - - - Array  containing  the  number  of  thicknesses 

included  in  the  dynamic  thickness  array. 

OB  (I)  ------  Array  of  1 -octave  band  center  frequencies,  Hz. 

OM  -------  Environmental  frequency. 

OMJ(I)  -----  Environmental  frequencies. 

OMS(I)  -----  Frequency  scale. 

S ( I)  -------  Array  of  1 -octave  band  power  spec'-al  densities, 

SJ  - --  --  --  Sum  of  output  excitations  for  one  center  frequency. 

TAB1  (I,  J,  K)  - Table  containing  behavior  of  storage  modulus  (ER) 

ER  = F (frequency,  temperature). 

TAB2  (I,  J,  K)  - - - Table  containing  behavior  of  loss  tangent 

EL/ER  = F (frequency,  temperature). 
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Glossary  of  Variables  for  VIBRTN  ( Contd. ) 


TCC(I) 

TF(WI,  WJ,  ERI..  ERJ, 
DJ) 

THCK  (A,  ERI,  WI,  W)  - 

TOP 

TOPP(I) 

TS  (I) 

TSK 

TT  (I) 

TTHIK  (I,  J,  L)  - - - 

W 

WI - 

XDD(I) 

XDDA 

XDJ(I) 


Calculated  thicknesses. 

Statement  function  to  calculate  transfer  function. 
Statement  function  to  calculate  thickness. 
Optimum  thickness. 

Array  of  acceptable  thicknesses. 

Temperature  scale. 

Thickness  predicted  by  shock  environment. 

A thickness  work  array. 

Dynamic  thickness  array  contains  all  acceptable 
vibration  thicknesses  for  each  material,  axis, 
and  temperature. 

Weight  of  item. 

1 -octave  band  center  frequency. 

Calculated  output  excitation. 

Maximum  allowable  G-level. 

Environmental  3-levels. 
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000081 

000081 

000081 

000081 

000081 

000081 


000081 

0000H7 

OOOOfel 

0000b8 

000053 

oonobs 

OOOObb 

000070 

000071 

000073 

00007b 

000101 

00011b 

oooiev 

oooie^ 

000130 


SUBROUTINE  V18RTn(TAFU,TA88,TS,0M3,T0P,0mJ,FE,M0MJ, XDDA, A,W, S, 

iic,xoj)  y 

C SUBROUTINE  CALCULATES  THE  OPTIMUN  THICKNESS  FOR  THE  VIBRATION 
C ENVIRONMENT 

DIMENSION  |AB1(1U,10,10),TAB8(10,10,10),0B(11),TS(1),0MS(1), 
10MJ(l)»SU),FE(l),XDD(n),TCC(ll),X0J(l),T0PP(ll)  ,TT(88) 

COMMON  /MMM/  MX  I (10,3,3) 

COMMON  /TEMPT/  TTHIK(10,3,11),IM,IAX,ITEMP,IJ,TMX 

COMMON  / T HK/  TSK, ITEM 

COMMON  /N/  M, MTS, MOMS, AT,OM,ZA 

OAT  A OB/1. ,8. , V. , 8. . lb. , 31. S,b3. ,185. ,850. ,500. ,1000./ 

C ******* 


C FE  WORK  - VECTOR 

C MOM J NUMBER  OF  INPUT  ENVIRONMENT  FREQ. 

C OMJ  ENVIRONMENTAL  FREQUENCIES  - VECTOR 

c QMS  -----  FREQUENCY  SCALE  (PTS.  AT  WHICH  INFO.  IS  RECOROEO)  - VECTOR 

C TAB1  TWO  - 0 TABLE  (CURVES)  CONTAINING  BEHAVIOR  OF  STORAGE 

C MODULUS ( ER ) ER  = F ( TEMP, FREQ) 

C T AH8  -----  TWO  - 0 TABLE  (CURVES)  CONTAINING  BEHAVIOR  OF  LOSS 

C TANGENT  (OJ)  OJsEL/ER  =F(TEMP,FREQ) 

c top  -----  optimun  thickness 

C TS  -----  TtMPERATURE  SCALE  (PTS.  AT  WHICH  INFO.  IS  RECOROEO)  - VECTOR 

C XOD A -----  MAXIMUM  ALLOWABLE  G - LEVEL  * 

C a -----  SUPPORTED  AREA  OF  ITEM  ***  (SQ.  INCHES) 

c w -----  WEIGHT  OF  ITEM  ***** 

C s -----  P s 0 - IN  1-OCTAVE  BANDS  ***  INPUT  IF  If  e 1 ***  - VECTOR 

C XDJ  — ENVIRONMENTAL  G-LEVELS  - VECTOR  ***** 

C IC  PROCEEOuRF  COOE  VALUE  = 1,8,0R  3 *** 

C * 

c AT  ENVIROMENTAL  TEMPERATURE 

C IC=1  -----  PHYSICAL  OPTIMIZATION  FOR  MIL  - STD  BloB  EXCITATION 

C IC=8  -----  PHYSICAL  OPTIMIZATION  FOR  MULTIPLE  SINE  EXCITATION 

C IC=3  PHYSICAL  OPTIMIZATION  FOR  RANOOM  EXCITATION 

C OM  ENVIRONMENTAL  FREQ  OMJ(J) 

C MOMS  -----  NUMBER  OF  VALUES  ALONG  FREQ.  SCALE  (OMS) 

C MTS NUMBER  OF  TEMPERATURES  STORED  ON  FILE 

C ** 

C TAB1  AND  TABS  ARE  ASSUMED  TO  USE  THE  SAME  TS  AND  OMS  VECTORS 


C ******* 

TF(WI,WJ,ERI,ERJ,OJ)=  SORT ( (1 . +D J**8 )/ ( (1 . -( W J/WI ) *»8*ERI/ER J) **8 
1 * DJ**8) ) 

THCK(A,ERI,wl,w)  = 38b.Y0*A*ERI/fW*WI**8) 

M=1 

ZA  = Cl.O 

DO  FO  1=1,11 
SJ  = 0.0 

wI  = b.8831853*0B( I ) 

OH  = wl 
XDD(I)=1.E10 

IF(0M.LT.0MS(1))G0  TO  50 

call  LAGINT(TAB1,DUMY,TS,0PS,ERI,FE) 

TCC(I)  = THCK(A,ERI,WI,W) 

GO  TO  (10,80,30)  , IC 
10  CONTINUE 

C MIL  STO  810  - B EXCITATION 

CALL  LAGINT(TAB8,DUMY,TS,0MS,DJ,FE) 

SJ  = TF(W1,0M,ERI,ER!,DJ)*XDJ  (I) 
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00014? 

GO  TC  45 

000147 

C 

20 

CONTINUE 

MULTIPLE  SINE  EXCITATION 

000147 

00  25  J*1,M0MJ 

0001S1 

OM  a OMJ(J) 

000159 

IF(OM.LT.OMS(1).OR.OM.GT.OMSCMOMS))GO  TO  25 

000154 

CALL  LAGINT(TAB1,0UMY»TS,0MS,ERJ,FE) 

000157 

CALL  LAGINT(TAR2,0UMY»TS,0MS,0J,  FE) 

000175 

SJ  = SJ  + TF(HI,OM,ERl,ERJ;OJ  )*  XDJCJ' 

000217 

25 

CONTINUE 

000222 

GO  TO  45 

000222 

c 

30 

CONTINUE 

RANOOM  EXCITATION  CPSO  INPUT  ) 

000222 

00  35  Jsl , MOM  J 

000224 

OM  b OMJ(J) 

000225 

CALL  LAG:NT(TA81,DUMY,TS,0MS,ERJ,FE) 

000231 

CALL  LAGINT(TAB2,0UMV»TS,0MS,0J  ,FE) 

000240 

SJ  * SJ  ♦ 3(J)*TF(wI,0M,ERI,ERJ,0J  )**2 

000251 

35 

CONTINUE 

000254 

SJ  s 2.5*  SQRT(SJ) 

000257 

45 

CONTINUE 

000257 

XDO(I)  = SJ 

000271 

50 

CONTINUE 

00027? 

11*0 

000300 

CT=1. 

000301 

00  50  I si, ll 

000303 

IF(XOD(I).EQ,1.E10)GO  TO  50 

000305 

IF(XOO(I).GT.XOOA)GO  TO  50 

000312 

11*1141 

000313 

IF(CT.EQ.1.)T0P*TCC(I) 

00031? 

TOP  = AMIN1(T0P,TCC(I)) 

000323 

TOPP(II)*TCC(I} 

000325 

CT  * 0.0 

000325 

c 

50 

CONTINUE 

SORT  THICKNESSES  INTO  ASCENOING  OROER 

000330 

00  55  1*1, II 

000332 

00  55  J*I,II 

000333 

IF(TOPP(J).GT.TOPP(I))GO  TO  55 

000340 

SAVEsTOPP(J) 

000341 

TOPPCJ)=TOPP(I) 

000344 

TOPP( I )*SA VE 

000345 

c 

55 

CONTINUE 

COMPARE  SHOCK  THICKNESS  TO  VIBRATION  THICKNESS 

0003S2 

IFCTOP.LT. TSKJGO  TO  52 

000354 

TSKsTOP 

000355 

II  1 = 1 

000355 

GO  TO  80 

000355 

52 

CONTINUE 

000355 

00  70  1=1,11 

000350 

I II*  I 

000351 

IFCTSK.LE.TOPP(III))GO  TO  ?r. 

000355 

c 

70 

CONTINUE 

PRINT  APPROPRIATE  ERROR  MESSAGE 

000357 

PRINT  1000 

000372 

PRINT  2000, TSK, TOP 

000405 

PRINT  3000, IM 

000413 

I J = Q 

000414 

RETURN 
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r 


ootms 

75 

TSKSTOPP(III) 

00041? 

80 

CONTINUE 

c 

CHECK  OPTIMUM  THICKNESS  AGAINST  MAX  ALLOWABLE  OPTIMUM 

000*17 

IF(TSK.GT.TMX)IJsO 

00042b 

IF(TSK.GT.TMX)PRINT  300Q»IM 

000442 

IF(TSK.GT.TMX)PRINT  500fl,TSK,TMX 

0004b0 

IF(TSK.GT.TMX)RETURN 

w 

DETERMINE  THE  UNION  OF  THE  TEMPERATURE  DEPENDENT  THICKNESSES 

oon4bn 

IF(ITEM.EG.1)G0  TO  105 

0004H5 

MXII=MXI(IM,IAX, ITEM-l) 

300472 

I J = 0 

000473 

DO  85  I=III,II 

000475 

14  = 111.4(1-111) 

000477 

IF(TTHIK(IM,IAX,1).GE.T0PP(I4))G0  TO  85 

000505 

IJ  = IJ41 

000507 

TT ( I J) =TOPP ( 14 ) 

000512 

85 

CONTINUE 

000515 

XF(XJ.EQ.O> 
1PRt'IT  300U  , IM 

000527 

IFIIJ.EQ.O) 
1 PRINT  400U 

000540 

IF(IJ.EO.U)RETURN 

0U0S42 

IKsO 

000S4  3 

DO  80  I=1,MXII 

00US*S 

IF(TTHIK(IM,IAX,I).GE.TT(IJ))GO  TO  80 

OOUSS1 

IK  s IK  4 1 

00055b 

TT(IJ4IK)=TTHIK(IM,1AX,I) 

0005b1* 

80 

CONTINUE 

0005b? 

IJK  = IJ  4 IK 

000571 

DO  8S  1=1, IJK 

000572 

DO  85  J= I , I JK 

000573 

IF(TT(J).GT.TT(I))GO  TO  85 

OOObOO 

SAVE  = TT( J) 

OOObOl 

TT(J)  = TT( I ) 

000b04 

TT( I )=  SAVE 

OOObOS 

85 

CONTINUE 

000bl2 

IFdJK.GT.lUIJKsil 

OOUblS 

DO  mo  1 = 1, IJK 

OOObl 7 

TTHIK(IM,IAX,I)  = TT( I ) 

000b?  7 

100 

CONTINUE 

000b31 

MXI(IM,IAX,ITEM)=IJK 

000b?b 

RETURN 

000b  3b 

105 

CONTINUE 

000b3b 

IT  = I I - I I I +1 

00Gb41 

DO  110  1=1, IT 

ooobfe 

I 1= I I I +1-1 

000b45 

TTHIK(IM,IAX,I)  = TOPP (I !) 

ooubsa 

110 

CONTINUE 

000b55 

MXI(IM,IAX,1)=IT 

onobbo 

U = 1 

OOObbl 

RETURN 

OOObbl 

500 

FORMAT (?X,bEl5.b) 

OOObbl 

1000 

FORMAT (51H  SHOCK  THICKNESS  IS  LARGER  THAN  VIBRATION  THICKNESS) 

UOUbbi 

2000 

FORMAT ( 2 X,lbHSHOCK  THICKNESS=  E l 5 . 4 , 2X , 28H0PT IMUM  VIBRATION  T 
INESSs  E15.4) 

OOObbJ 

3000 

F0RMAT(8HUMATERIAL  1 3 , 1 7H  IS  BEING  DELETED  ) 

OOObbl 

4000 

Fr.RMAT(23H  NO  TEMPERATURE  OVERLAP  ) 

OOObbl 

5000 

FORMAT (20H  OPTIMUM  THICKNESS  = E15.5,2X, 

85 


GUUbbi 


1 i3«MAX  ALLOWABLE  OPTIMUM  THICKNESS  * ElS.S,/) 
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VI9RTN 


SUBPROGRAM  length 

001133 

FUNCTION 

assignments 

TF 

• 

00UU2? 

THCK 

• 

000053 

STATEMENT 

ASSIGNMENTS 

10 

m 

000124 

20 

• 

0 0 0 1 4 V 

25 

m 

00021? 

3t 

m 

000222 

4S 

m 

0002b? 

SO 

m 

000271 

bO 

m 

00032b 

b £ 

m 

00035b 

bS 

- 

000345 

75 

m 

000415 

80 

m 

00041? 

85 

m 

000512 

RO 

m 

Q005b4 

RS 

m* 

000b05 

105 

«* 

OOObSb 

500 

m 

000b?2 

1000 

- 

000b  75 

2000 

m 

000704 

3000 

m 

000715 

4000 

• 

000722 

5000 

• 

00072? 

BLOCK 

NAMES  AND  LENGTHS 

MMM 

* 

000132 

TEMPT 

m 

00051? 

THK 

m 

000002 

N 

- 

00000b 

variable 

ASSIGNMENTS 

A 

m 

000003 

CT 

m 

001123 

OJ 

m 

00111? 

DUMY 

m 

001115 

ERI 

m 

UOlllb 

ERJ 

m 

001121 

FE 

m 

000000 

I 

m 

001112 

I AX 

m 

000513C02 

IC 

m 

00000b 

II 

m 

001122 

III 

m 

001)25 

IJ 

m 

000S15C02 

IJK 

m 

001131 

IK 

m 

001130 

IM 

m 

000512C02 

IT 

m 

001132 

ITEM 

• 

000001C03 

14 

m 

00112? 

J 

m 

001120 

M 

m 

oooooocoh 

MOM  J 

• 

000001 

MOMS 

m 

000002C04 

MX  I 

m 

000000C01 

MXII 

m 

00112b 

08 

m 

001010 

OM 

• 

000004C04 

s 

• 

000005 

SAVE 

m 

001124 

SJ 

m 

001113 

TCC 

m 

00103b 

TMX 

m 

00051 bC02 

TOPP 

m 

001051 

TSK 

m 

000000C03 

TT 

m 

0010b4 

TTHIK 

m 

00O000C02 

w 

m 

000004 

HI 

m 

001114 

xoo 

m 

001023 

XOQA 

m 

000002 

XOJ 

m 

000007 

ZA 

m 

PJ0U0SC04 

START 

OF 

CONSTANTS 

OOObbS 

START 

OF 

TEMPORARIES 

0007S3 

START 

OF 

INOIRECTS 

001001 

UNUSED 

COMPILER  SPACE 

U40b00 
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LAG1NT  - Subroutine 


Usage: 

(1)  Determine  the  number  of  dimensions  of  the  input 
array. 

(2)  Builds  the  appropriate  interpolated  table. 

(3)  Returns  the  final  interpolated  value. 

Subprograms  called: 

FLAGR 
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Glossary  of  variables  for  LAGINT 


A (NPTSG,  NPT5B,  NPTSA)  - - 

ALF(NPTSA) 

BETA  (NPTSB) 

GAM  (NPTSG) 

NPTSA  

NPTSB - 

VAL - - - - 

XB - - - - - 

YG - - 

ZA - - - - - 


Input  table. 

Vector  of  independent  variables. 

Vector  of  independent  variables. 

Vector  of  independent  variables. 

Number  of  X-  Y planes  in  input  table. 

Number  of  columns  in  input  table. 

Interpolated  value. 

Horizontal  argument  (interpolating 
value). 

Vertical  argument  (interpolating  value). 
Depth  (interpolating  value). 
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SOBROUTINF  LAGINT (A#  A LF  #RFTA,GAM,VAL»F) 
C A(NPTSG, NPTSB, NPTSA)  INPUT  TABLE 


C ALF(NPTSA)  VECTOR  OF  INDEPENDENT  VARIABLES 

C BETA(NPTSB)-—  vector  OF  independent  variables 

C GAM(NPTSG)  VECTOR  OF  INDEPENDENT  VARIABLES 

C IF  NPTSA  NOT  EQ  TO  1 INPUT  TABLE  IS  3-D 

C IF  NPTSB  EQ  1 AND  NPTSA  tQ  1 TABLE  IS  1 - D 

C IF  NPTSB  NE  i AND  NPTSA  EQ  1 TABLE  IS  ? - 0 

C NPTSA  NUMBER  OF  X-Y  PLANES  IN  INPUT  TABLE 

C NPTSB  NUMBER  OF  COLUMNS  IN  INPUT  TABLE 

C NPTSG  NUMBER  OF  ROwS  IN  IN°UT  TARLE 

C val— — — INTERPOLATED  VALUE 

C Xp  HORIZONTAL  ARGUMENT 

C Yt,  -------  VERTICAL  ARGUMENT 

C ZA DEPTH 


..on 

DIMENSION  At  10, 10, 1U), 8(10, 10) 
1 8ETA(1),GAM(1) 

ocnon 

C 

COMMON  /N/  NPTSA,  NPTSB, NPTSG, 
Check  FOR  three  DIMENSIONS 

000011 

C 

IF(NPTSA.EQ.1)G0  TO  100 
SOLVE  THREE  DIMENSIONAL  CASE 

000013 

00  in  Isl, NPTSG 

oonoif 

DO  10  JsJL,  NPTSB 

000015 

00  5 K=l, NPTSA 

GOOOlb 

s 

F C K ) = A(I,J,K) 

000031 

8(1, J)  * FL AGR ( NPTSA , ALF , F ,7A) 

00U043 

10 

CONTINUE 

000047 

c 

GO  TO  120 

CHECK  FOR  TWO  DIMENSIONS 

000050 

100 

CONTINUE 

ooooso 

IF(NPTSB.EQ,1)G0  TO  200 

00U052 

DO  110  I«l, NPTSG 

00005* 

DU  110  J=l, NPTSB 

ooooss 

c 

no 

B(I,J)aA(I,J,l) 

SOLVE  TWO  DIMENSIONAL  CASE 

000071 

120 

CONTINUE 

000071 

00  ISO  I?l, NPTSG 

000073 

00  140  J=l, NPTSB 

000074 

140 

F ( J ) = B ( I , J ) 

000105 

8(1, l)sFLAGR(NPTSB, BETA, F,XB) 

OOCllS 

15  0 

CONTINUE 

coon? 

c 

GO  TO  220 

SOLVE  ONE  DIMENSIONAL  CASF 

000120 

200 

CONTINUE 

OOC 120 

DU  2in  1=1, NPTSG 

000122 

210 

3(1,1)  = A(I,1,1) 

000131 

220 

CONTINUE 

000131 

VAL  = FlAGR(NPTSG,GAM,B, YG) 

000140 

RETURN 

000141 

END 

DEPTH 

HORIZONTAL 

VERTICAL 
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LAGINT 


subprogram  length 
000322 


FUNCTION  ASSIGNMENTS 


STATEMENT  ASSIGN*. 

S - OUOOlb  100 

1 MO  - 000074  eoo 

- 000050 

- 000120 

BLOCK  NAMES  AND  LENGTHS 
N - 0C000t> 

VARIABLE  ASSIGNMENTS 
B - 0001&3  I 

NPTSA  - 000000C01  NPTSB 

YG  - 000004C01  2A 

- 000317 

- 000001C01 

- 0Q0005C0 1 

start  of  constants 

000143 

START  OF  TEMPORARIES 
000144 

START  OF  INUIRECT3 
oooisn 

u*;useo  compiler  space 

043Q00 

110 

210 

- 000055  120 

- 000122  220 

- 000071 

- 000131 

J 

NPTSG 

- 000320  K 

- 000002C01  XB 

- nooBi'i 

- 000003C01 

FLAGR  - Function  Subprogram 


Usage: 


LAGRANGE  interpolating  function  interpolates  through  a 
one-dimensional  table  and  returns  an  interpolated  value. 


Options: 

(1)  Two  point  linear  extrapolation  to  the  left. 

(2)  Three  point  interpolation  from  left. 

(3)  Three  point  interpolation  from  left  and  right. 

(4)  Three  point  interpolation  from,  right. 

(5)  Two  point  linear  extrapolation  to  right. 

Procedure: 

For  option  one,  a constant  slope  is  assumed. 

For  option  two  a parabola  is  passed  through  the  three 
nearest  points  (two  at  the  left  and  one  on  the  right  of  the 
interpolating  value). 

For  option  three  a parabola  is  passed  from  the  left  and 
from  the  right  with  the  final  value  being  the  average  of 
the  two. 

For  option  four  a parabola  is  passed  from  the  right  (two 
points  on  the  right  and  one  on  the  left  of  the  interpolating 
value). 

Subprograms  called: 

None. 
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Glossary  of  variables  for  FLAGR 


F(I)-  - - - - - Table  of  dependent  variables. 

IGO Code  to  determine  type  of  interpolation. 

NPTS Number  of  points  in  table. 

W (K) Work  array  containing  function  weights. 

XIK(I)  -----  Table  of  independent  variables  to  be  interpolated. 

XK Interpolating  value. 
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FUNCTION  FLAGRfNPTSi XlK.FrXK) 

OUI10O7 

DIMENSION  XIK(1),F(1),W(3) 

c 

LAGRANGE  INTERPOLA TING  FUNCTION 

ooonn? 

00  200  I=i»NPTS 

000010 

I T = I 

ooonu 

IF(XK.LE.XIK(D)GO  TO  210 

00U01* 

200 

CONTINUE 

00001b 

FLAGRsF(NPTS)*(XK-XIK(NPT8))*(F(NPTS)-F(NPTS-1)) 

1 /(XIK(NPTS)-XIK(NPTS-l)) 

000030 

RETURN 

000030 

205 

CONTINUE 

000030 

FLAGRsF(l)*(XK-XIK(l))*(F(l)-F(2)) 

1 /(XIK(1)-XIK(2)) 

00U0*0 

RETURN 

0000*0 

210 

IF(X*.EG.XIK(n)GO  TO  SflO 

0000*2 

IGO  s 3 

0000*3 

IF(IT.LE.2)IG0sl 

0000*7 

IF(IT.EQ.NPTS)  IGO  = 2 

000052 

030.0 

0000S3 

IFUG0.EQ.2)  GO  TO  350 

c 

PARABOLA  FROM  THE  RIGHT 

ooross 

I F C I T .EO.DGO  TO  205 

000057 

UO  300  131,3 

oooot-o 

IARG  * IT-2+I 

000052 

WEIGHT  s i. 

0000b* 

00  250  Jsl  , 3 

OOOObS 

IF ( J.EQ. I )GU  TO  250 

000057 

JARG  s IT  - 2 ♦ J 

000070 

WEIGHT  s WEIGHT*((XK-XIK(JARG))/(XIK(IARG)-XIK(JARG))) 

000077 

250 

CONTINUE 

000101 

WTI)  s WEIGHT 

000103 

300 

CONTINUE 

000105 

00  310  Ksi,3 

000107 

IARG  = IT  - 2 ♦ K 

000111 

0 s B * W ( K ) *F ( I ARG) 

000115 

310 

CONTINUE 

000117 

IFCIGO.EQ.DGO  TO  500 

c 

PARABOLA  FROM  THE  LEFT 

000121 

350 

CONTINUE 

000121 

00  *00  I3lf3 

00012? 

IARG  : IT  • 3 H 

000121 

WEIGHT  ? 1.0 

000127 

00  35n  Jsl, 3 

000130 

IF (J.EQ. I)GU  TO  350 

000132 

JARG  - IT  ■ 3 ♦ J 

000133 

WEIGHT  3 WEIGHT*((XK-XIK(JARG))/(XIK(IARG)-XIK(JARG))) 

0001*2 

350 

CONTINUE 

000 1** 

W ( I ) s HEIGHT 

000  *b 

*no 

CONTINUE 

000150 

00  *10  Ksl,3 

000152 

IARG  s IT  - 3 ♦ K 

000.15* 

0 s B ♦ W ( K ) *F ( IARG) 

OOUlhO 

*10 

CONTINUE 

000ib2 

IF(IG0.EQ.2)G0  TO  bOO 

OOOib* 

0 = 0 * O.S 

000) b5 

GO  TO  bOO 

000  lbb 

500 

CONTINUE 
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'I  IUIJIM 


OOOlbb  8 S F ( I T ) 

00ul?0  bOO  CONTINUE 
000170  Fl AGR  s 3 

0001 72  RETURN 

000172  END 


FL*GR 


subprogram  length 

000231 


FUNCTION  ASSIGNMENTS 

STATEMENT  ASSIGNMENTS 
2US  - UQ0U30  2l;j 

JRO  - nooi4?  soo 

S..':k  NAMES  ANO  LENGTH? 

mlAdLE  ASSIGNMENTS 
B - U00223  FLAGR 

1 - U00222  IT 

"•  - 000230  w 

start  of  cunstants 

000174 


000040  240  . 000077  3S0 

OOOlbb  bno  - 000170 


000121 


000214  I - 000220  IARG 

000521  J - 00022b  JARG 

C0021S  HEIGHT  - 000225 


000224 

00022? 


START  pF  temporaries 

000177 


START  OF  INDIRECTS 
000207 


UNUSED  COMPILER  SPACE 
043000 
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SCOPE  3.* 

CONTROL-CARO-INITIATEO  LOAO 

loader 

L1»0  1 2/ 1 A/ 7 3 07. AS 

F*i  OF  THE  LOAO 

101 

HSUS  WORDS 

WERE  REQUIRED  POR  LOADING 

L*  A ♦ l OF  THE  LOAO 

S3077 

transfer  aooress  — 

ORRACK  2S0 

NO.  T ABLE  MOVES 

18 

PROGRAM  ANO 

BLOCK  ASSIGNMENTS. 

CLOCK 

AOORESS 

LENGTH 

PILE 

PREP1X  TABLE  CONTENTS 

/COST*/ 

101 

I3S 

/vpass/ 

23b 

11 

OPPACK 

2*7 

31022 

BINRAK 

/TEMPT/ 

31271 

S17 

TEMPtV 

32010 

55 

61NRAK 

/OPT/ 

320b5 

t> 

0 AHA t K 

32073 

170b 

BINPAK 

/MHM/ 

3*001 

132 

/Thk/ 

3*133 

2 

/N/ 

3*135 

b 

COPRO 

3*1*3 

bO  32 

B1NPAK 

OHGHT 

*21,75 

101 

BINPAK 

costmt 

*227b 

701 

SINPAK 

MI  NCOS 

*3177 

70 

BINPAK 

SHOfKfc 

* ?2b7 

112 

BINPAK 

vlrtRTN 

*1*01 

1133 

BINPAK 

LAGINT 

**53* 

322 

BINPAK 

FLAGS 

*50Sb 

231 

BINPAK 

SYSTEM 

*5307 

112$ 

SL-NUCLEUS 

0S/2A/73 

acgoer 

*»b*3* 

12 

SL-L1833 

OP 

GCTRA 

*b**b 

17 

SL-LIS33 

OP 

C m£k  I T 

* b*b5 

32 

SL-LIB33 

OP 

SORT 

* b5  1 7 

AS 

SL-LIS33 

OP 

INPUTC 

*bSb* 

10a 

8L-LIB33 

OP 

CuTPTC 

*bb?0 

10A 

BL-LIB33 

OP 

REkIMM 

*b77* 

11$ 

SL-L1633 

OP 

KRAMER 

*7111 

10AI 

SL-L1B33 

0* 

KUOER 

S01S2 

12SA 

SL-L1B33 

OS/17/73 

SIOS 

5 i *2b 

1 A S 1 

BL-srsio 

10/30/73 

lA.AR.3b.  SCOPE  3. A COMPASS 

1.1'*"  CP  SECONOS  LOAO  TI»E 


3. 


Input  Data  to  OPPACK  Program 


Input  consists  of  problem  card  data  deck(s)  and  material  files  stored 
on  disk.  The  form  of  the  data  stored  on  the  material  disk  files  will  be  dis- 
cussed later.  Data  contained  in  the  problem  card  data  deck(s)  consist  of 
integers  and  real  numbers.  All  integers  must  be  right  adjusted  in  the  pro- 
per card  field.  Real  numbers  must  contain  a decimal  point  in  the  proper 
position. 

The  content  of  each  card  in  a problem  deck  is  as  follows: 

Input  Data  - Card  Deck 

Card  Number  One  is  read  according  to  statement  10po  FORMAT 

(612,  5E  10.  0) 

Columns 

' - 2 NIC  - Code  number  of  container  material  to  be  used. 

3-4  IC  - Code  denoting  type  of  optimization  to  be  used; 

IC  = 1,  MIL-STD-810B  excitation 
IC  r 2,  Multiple  sine  excitation 
IC  3,  Random  excitation. 

5-  6 IITM  - Item  number  which  is  an  arbitrary  number  assigned 

to  the  item  being  shipped.  IITM  must  not  be  greater 
than  two  digits  (i.  e,  , 99).  The  condition  IITM  = 
MITEM  = ITEM  must  exist. 

V-  8 MIC  - Maximum  number  of  iterations  needed  for  conver- 

gence of  drop  height  calculations. 

— 

9-10  MX  I'"  - Maximum  number  of  iterations  needed  for  conver- 

gence in  shock  environment. 

11-12  MOMJ  - Maximum  number  < - . .ronmental  frequencies 

(Max,  = 11). 

13-22  CS  - Cost  of  shipping  ($/lb). 

23  32  Cl  - Cost  of  item  ($). 


Not  needed.  Set  equal  to  0. 
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Columns 


33-42  TCON  - Thickness  of  container  (in.). 

* O 

43-52  TEML  - Low  environmental  temperature  ( F). 

53-62  TEMH  ’ - High  environmental  temperature  (°F). 

Card  Number  Two  is  read  according  to  statement  1020  FORMAT 

(11  E 7.0) 

Columns 

1-77  (OMJ (I),  1=1,  MOMJ)  - Environmental  frequencies 

(rad/sec)  - in  ascending  order. 

Card  Number  Three  is  read  according  to  si  .tement  1020  FORMAT 

(11  E 7.0) 

Columns 

1-77  (S(I),  1=1,  MOMJ)  - Environmental  Power  Spectral  Density 

(PSD).  g^/Hz  each  corresponding  to  one  of  the 
above  environmental  frequencies. 

This  card  is  blank  unless  "IC  = 3.  " 

Card  Number  Four  is  read  according  to  statement  1020  FORMAT 

(11  E 7.0) 

Columns 

1-77  (XDJ  (I),  1=1,  MOMJ)  - Environmental  acceleration  levels, 

g,  each  corresponding  to  one  of  the  above  environ- 
mental frequencies. 

Card  Number  Five  is  read  according  to  statement  500  FORMAT  (401  2) 
Columns 

1-  2 NC  - Number  of  containers  (Max.  = 10). 

3-  4 MITEM  - Item  number  (see  IITM  on  Card  Number  One). 

* If  (TEMH-TEML)  is  less  than  20°F,  make  TEMH  = TEML. 
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Columns 


5-  6 MNMATS  - Number  of  materials  on  file  (Max.  = 10). 

*}« 

Cards  Number  Six  through  Fifteen  are  read  according  to  statement  10 

FORMAT  (E5.0,  3E6.  0,  3E15  5). 


Columns 

1-68  ((CA(I,J),  J = 1,71,  1=1,  MNMATS)  - Cost  and  property 

matrix. 

1-5  Cost  of  material  ($/ft^). 

6-11  Cost  of  fabrication  ($/min). 

12-17  Cost  of  packaging  ($/min). 

18-23  Safe  low  temperature  (°F). 

24-38  Low  stress'^  (lb/in. ^). 

39-53  High  stress^  (lb/in. ^), 

54-68  Gamma  (lb/ft^). 

Card  Number  Sixteen  is  read  according  to  statement  10  FORMAT 

(E5.0,  3E6.0,  3E15.5). 

Only  input  data  type  specifications  E5.  0 and  the 
first  of  3E6.  0 are  used  to  read  the  data  from  this 
card  type.  Statement  10  FORMAT  is  also  used  for 
other  data  card  input. 


Columns 

1-11  ((CD  (I,  J),  J = 1,2),  I = 1,  NC)  - Cost  and  property  matrix  - 

container  material. 

1 - 5 Gamma  (i.  e.  , specific  weight)  of  container  (lb/in, ^). 


Must  have  one  card  for  each  material. 

May  have  one  to  ten  container  material  cards. 

(1)  From  range  of  optimum  stress  of  a particular  material. 
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Columns 


r~ 


6- 11  Cost  of  container  ($/'in.^).  CAUTION:  This  is  co9t  of 

container  material  volume, 
riot  container  volume. 

Card  Number  Seventeen  i9  read  according  to  statement  5 FORMAT 

(14,  2X,  4E10.0,  2X,  12). 

Columns 

1-  4 ITEM  - Item  number  (see  IITM  on  Card  Number  One). 

7- 16  WI  - Weight  of  item. 

17-26  XL  - X-length  (2nd  longest  length)  in  inches. 

■A, 

27-36  YL  - Y-length  (shortest  length)  in  inches. 

$ 

37-46  ZL  - Z-length  (longest  length)  in  inches, 

49-50  NPCNT  - Number  different  percent  damage  allowable 

cases  (Max.  = 10). 

Card  Number  Eighteen  through.  . . are  read  according  to  statement  7 FORMAT 

(3E10.0). 

Columns 

1-30  (GMF(I),  PCTD(I),  REPCI(I),  I = 1,  NPCNT). 

1-10  (GMF(I)  - Fragility  in  units  of  acceleration,  g. 

11-20  PCTD(I)  - Percent  damage  at  above  acceleration  level, 

21-30  REPCI  (I)  - Replacement  cost  for  above  percent  damage 

( $/ item). 


Y 


loan*  D 


• ; 1 ,.  . 


The  program  is  set  up  to  handle  one  to  ten  cataloged  disk  files. 
Mach  tile  contains  the  shock  ar.<!  vih-  Dor  i*’f;  nia‘ier.  needed  fo’- 
meaningful  scrvtinisaHor  of  th.d  ci-oi  ..,*•?  rn  hdi', 

Mach  material  file  is  assigned  a two-digi*  numerica!  material 
code  which  is  linked  to  the  logical  device  or.  .'d  ich  f.K.t  mu*erinl  file  is 
cataloged  through  the  ASG  cent  -o1  card  and  t o USE  con'.- ol  ca~d,  Once 
execution  starts,  the  material  if;  referee  ced  tl  rough  the  use  of  the. 
numerical  material  code. 

The  file  structure  is  ‘he  same  far  Oil  material  files.  The  f-ort 
portion  contains  the  shock  envi  onrnen'  information,  and  the  rear  po-tio 
contains  toe  vibration  environment  information.  The  content  and  read 
sequence  of  each  section  is  as  follows: 

Inpi.t  Data  - Disk  File 
Shock  Environment  - 18-Inch  Drop  Heigh1. 


Format 

(E7.0,  512)  RHOM.  DKPH,  ICODE 

E7.  0 RHOM  - Specific  weigh.t  of  the  material  (PCF) 

12  DRPH  - Drop  height 

12  ICODE  - Code  used  in  updating  files 

(512)  NT.  NTH.  NS 

12  NT  - Number  of  temperatures  (Max.,  r 5' 

12  NTH  • Numbe"  of  thicknesses  (Mar.  - 10) 

12  NS  • Number  of  stresses  (Mu::,  10) 

(11E7  0)  (T(l),  1 1,  NT) 

E7,  0 T (1)  - One  of  the  temperatures  d which  data  is  Tncordm 

tdeg-ees  fahrenh.eit) 

(1  1 E7.  0)  (TIKI),  PI,  NTH) 

E7  0 TII(I)  One  of  the  mnteri.tl  thick'  esi-e-i  considered  du-f 

data  gathering. 
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(1 1E7.  0) 


(siG(i),  iai,  \s: 


E7.  0 SIG(I)  - Static  stress  at  a point 

DO  XX  K = 1,  NT 
DO  XX  I = 1,  NTH 

(11E7.0)  XX  READ  (MS,  F)  (TAB  1 (I,  J,  K),  J = 1,  NS) 

TAB1  (I,J,K)  = G = F (Thickness,  Stress,  Temperature) 

The  preceding  type  of  information  is  also  stored  for  the  24- inch, 
30-inch,  and  36-inch  drop  heights,  respectively. 

Next  is  the  vibration  environment  which  consists  of  the  following. 

Input  Data  - Disk  Files 
Vibration  Environment 


Format 


( E7.  0,  512) 
E7.0 
12 
12 

(11E11.4) 
Ell.  4 

(11EH.4) 
Ell. 4 

(1  1 El  1 . 4) 


(11E11.4) 


RHOM,  MTS,  MOMS 

RHOM  - Specific  weight  of  the  material  (PCF) 

MTS  - Number  of  temperatures  (Max,  = 10) 

MOMS  - Number  of  frequencies  (Max.  = 10) 

(TS (I),  I = 1,  MTS) 

TS(I)  - A temperature  at  which  data  is  recorded 
(degrees  fahrenheit) 

(QMS ( I),  I = l,  MOMS) 

QMS(I)  - A frequency  at  which  data  is  recorded  (rad/-ec) 
DO  X I = 1,  MOMS 

X READ  (MS,  FI)  (TAB  1 (I,  J.  1),  J = 1,  MTS) 

TAB  l (I,  J.DsERsF  (Temp.  , Freq,  ) 

DO  XX  I = 1,  MOMS 

XX  READ  (MS,  F2)  ( TAB2  (I,  J,  1 ),  J = 1,  MTS) 

TAB2  (I,  J,  1)  = EL/ER  = F (Temp. , Freq. ) 
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4. 


Description  of  Output 


Output  Item  «<1 


This  output  item  consists  of  a listing  and  definition  of  all  the  card 
data  input.  The  first  four  output  tables  of  this  item  are  printed  in  the  main 
program  of  OPPACK.  The  last  five  tables  are  printed  in  Hie  subroutine 


DAMALW. 


Output  Items  "2.  1-2.5 


These  output  items  consist  of  the  results  of  some  of  the  intermediate 
calculations  done  in  the  subroutines  CDPRO,  COSTMT,  and  DAMALW.  The 
first  two  output  tables  are  printed  in  the  subroutine  CDPRO.  They  are  Item 
u2.1  and  Item  “2.2. 

Item  ”2.  1 - consists  of  the  thicknesses  calculated  by  the  function 
subprogram  SHOCKE.  At  the  end  of  each  drop  height  iteration,  the  thick- 
nesses Tl,  T2.  and  T3  are  compared  to  the  corresponding  newly  calcu- 
lated thicknesses  TT1,  TT2,  and  TT3,  respectively.  If  the  change  in  the 
corresponding  thicknesses  is  greater  than  the  allotted  tolerance,  the  thick- 
nesses are  printed  and  another  iteration  is  initiated.  The  amount  of  output 
in  this  item  is  purely  a function  of  the  number  of  iterations  required  for  the 
drop  height  convergence  and  the  number  of  materials  being  considered. 

Item  «2.  2 - is  a N y 3 table  of  minimum  thicknesses  where  the 
rows  correspond  to  materials  and  the  columns  correspond  to  different  axis. 
Items  “2.  1 and  “2,  2 are  repeated  for  each  of  the  three  possible  temperatures. 

Items  “2.  3 and  *2.  4 - are  output  from  the  subroutine  COSTMT. 

Item  ^2.  3 - shows  the  optimum  thicknesses  and  the  materials  to  be 
used  with  these  thicknesses. 

Item  “2.4  - shows  the  total  cost  of  shipping  one  item.  This  cost  in- 
cludes everything  except  the  cost  for  allowing  damage.  Item  “2.4  also  con- 
tains the  material  cost  matrix  where  each  row  corresponds  to  a different 
material  and  each  column  to  a different  perpendicular  face  of  the  package. 

Hem  “2.5  - is  output  in  the  subroutine  DAMALW.  This  output  is 
self  - explanatory. 

Output  Items  HZ.  1-2.5  are  repeated  for  each  percent  damage 
allowed. 
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Output  Items  #3,  1 - 3.  5 


Output  Items  #3.  1-3.5  are  al)  printed  in  the  subroutine  DAMALW 
and  are  considered  to  be  self-explanatory.  Item  #3.5  may  appear  in  two 
different  ways.  If  Item  #3.5  reads  "overshipping  i9  the  best  policy,  " the 
information  in  Items  #3.  1 - #3.  2 is  considered  to  be  the  optimum  informa- 
tion. If  Item  #3.  5 reads  "the  above  percent  damage  is  the  best  policy,  " 
then  the  information  contained  in  Items  #3.  3 - #3.4  is  the  optimum  informa- 
tion. 


These  output  item  numbers  correspond  vith  the  circled  item  numbers 
on  the  following  nine  sample  problems.  Tables  IV  through  XII  contain  the 
input  data  cards  for  the  sample  problems.  Each  table  appears  prior  to  the 
OPPACK  Program  output  for  each  of  the  nine  sample  problems. 
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TABLE  IV 


1 110  I I 1 1 1 0 1 0 I III  I I 

t i t i ' ti  i!  t ’i  ii  ii  it  a n n n :< 

I I II  I I I I I I I I I 1 2 I I I 

2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 

3332334333331)3343 
4444444-^4444444444 
555555555555555155 

imiiiimimiii 
n 11111  niiunin 
iiimiiiiiiiiim 
iimiimniiiiii 

i i i i t t i « ii  ■<  ’<  i >i n n »n  h 


I 0 0 III  0 0 II  C 0 M 8 5 0 0 l il  C C 5 I 0 0 1 I 0 1 1 

n a ii  n .i  ■ :•  ■:  n :« is  irn  <:  • *:  i;  u it  n «•  u u n ti  t;  ti  v it 

I I I I I I I I I I i ! I I I I I I I I I I I I | I I I I I I 


w&^yh 


iiiiiiiiiininiinn  2<n 

i ii i m 1 1 m i s m 1 1 1 1 1 1 1 s 

nit*;  ii  ini  r » )i  u N n *i  ii  i 


MM  ■ II  I?  11  W 


2 1 2 

2 2 2 2 2 2 2 

2 2 2 2 

22222227 

J •*  3 

3 3 ) 3 3 3 3 

3 3 3 3 

33)3)))) 

4 4 4 

4444444 

4 4 4 4 

44444444 

5 5 5 

5 5 5 5 5 5 5 

5 5 5 5 

55555555 

( I 1 

lilllll 

till 

iiiiiui 

1 I 2 

2 1 2 1 1 II 

1111 

iinini 

) ) 1 

lilllll 

mi 

iiiiiiii 

III 

lilllll 

1911 

11111919 

9 1 1 9 I 1 1 I 1 1 1 1 9 I I 1 1 I 1 1 9 1 9 l!  3 9 9 I 

till  M It  V *1  M M ■ II  D II U I)  M II  ■ ■ It  II  n H l<  .1  1 II  1 1 II 


119(1111 

nMitnnniii 

IIMini 


2 5 2 2 12 
31)331 
/ • 4 « 4 4 

5 5 5 5 5 9 

mm 

2 2P2I 
1)3122 


*«*  OPTIMIZATION  PROCEDURE  FOR  uESICN  0?  PACKAGE  CUSHIONING  • •« 


« NIC  COOE  NO.  OF  CONTAINER  mATEMAI 
, IC---.iPTi«i?aTION  COOE 


ro  pi 


USEO 


1 « II  Tm 
?ft  • “IC  - 
>S  - M*1  - 

11  • “QMj 

J.3%RQF-0l  (l/L 
?S.0O  ( I ) 
.wsnon  (IN.) 

•to. 00  ( * ) 

i?u.O"  t ► ) 


I Tc •»  NUMBER 

— MAII-UM  NO.  OF  ITERATIONS  FOR  DROP  MT.  C*LC. 
--  «AU«UM  NO.  OF  ITERATIONS  FOR  G-C ONv ercence 
---  NUMBER  OF  ENVIRONMENTAL  FREQUENCES 
§)  « CS  ---  COST  of  Shipment 
t Cl  ---  COST  OF  ITEM 

i t c on  — thickness  of  ccntainfr 

t TEML  -««  LOmEST  ENVIRONMENT  TEMPERATURE 
I T F mm  HIGHEST  ENVIRONMENT  TEMPERATURE 


[ sample  PROBLEM  #1  (MULTIPLE  SINE  I 
EXCITATION)  CONSTANT  TIMPf.RATURE  j 


(RAD/SfcC)  « OMJ(I)  all  OF  T Hf  ENVIRONMENTAL  FREO. 

?«100fT0UA,?il00E*011.2%RNOE»O?l.  ' ’ %RE ♦O ?V . ?A 30 OE tO? 1 . • »t  RbE *0  1 1 . 1 1 1 SRE *0  It . 1 SB tOlS. bStl ?C TO  IS . RfcRO IE  TO  1 b . ?• 1 1 RE tO 1 
fso  input  for  random  excitation 


(&*S)  * «gj(I>  - environmental  excitations  each  corresponoinc  to  one  of  the  above 

.00uraE-0i%.0000Ct-0n.0U0D0EA0n?.00n0nEtO03.00000Et001.00000Et003,00000Et001.Onncrr^001.O  OTSC ♦001. OOOOOC TOO l.OOOOOE too 


1 8 kc  ---  number  of  containers 

1 « «ITE«  •••  ITEM  NUMBER 

10  * MNMATS---  nu“SER  of  materials  on  file 


CST-maT 
1 .R?00f  ♦01, 
S.tOOOEtOLi 
?. INCOEtOU 
1 • 1 1 CO*  400 
1 .SI0Q<’*01» 

i . )booi'«ou 

i.OOOOf  TOO 
l.OOOOf *ou 
♦.?"OOFtOU 

?.nco:>oo 


cst-fah 

% • ooonE*o? 
%. OOOOE-O? 

s.ooooe-o? 

% .OOOOE-O? 
S.OOOOE-O? 
S.  OOOOE-O? 
S. OOOOE-O? 
S.OOOOE-O? 
S.OOOOE-O? 
S.OOOOE-O? 


CST-PAK 
l.OOr.OE-O? 
1. OOOOE-O? 

l.oacoc-o? 

1. OOOOE-O? 
1 .OOOOE-O? 
1. OOOOE-O? 
1. OOOOE-O? 
1. OOOOE-O? 
1. OOOOE-O? 

l.aonoE-o? 


Sl-TFMP 

•? . ?O00E  TO l 
•b.OOOOETOl 
•1. tOOOEtOl 
-R.OOOOEtOl 
•t.0O00Et01 
-?.ooooEtni 
-?.0000Et01 
•? . OOOOEtO 1 
-?.OOOoEt01 
-? . OOUOE  TO  1 


LM-STRS 
1.0000^-01 
l.'TOOOE-Ol 
l.OOOOf-O? 
? . OOOOE-Ol 
1. OOOOE-O? 
1. OOOOE-O? 
?. OOOOE-O? 
1. OOOOE-O? 
1. OOOOE-O? 
?.  OOOOE-O? 


MI-STRS 
l.onooEton 
1 • SOOOE  *00 
1. OOOOE-Ol 
l.SOOOCtOO 
1. OOOOE-Ol 
S .OOOOE-Ol 
?. OOOOE-Ol 
?• OOOOE-Ol 
1.S000E-01 
I.0000E-U1 


GAMMA 

l.SOOOEtOO 
? , OOOOE  TOO 
?. t000€*00 
I.  OOOOE-Ol 
l.SOOOEtOO 
l.OOOOEtOO 
T.ROOOEtOO 
1.  lOOOEtOO 
1 . 1 *00E  + 0 1 
l.llOOCPOl 


gamma 

1.70noF-nj 


C S T-f.  ONT  a 1 SC  R 
? • 1?00E -0  3 


i*;tem  number 

t.OnuOEtO?«MEIGHT  OF  ITEM  *1(  POuNOS  ) 

1 . ?nOQE *0 1 ■ DIMENSION  PARALLEL  TO  x-AUS  ?N0  LONGEST  DIMENSION  XL  (INCHES) 

i.?oooe*o:«  oimcnsion  parallel  to  t-aijs  iro  longest  dimension  a (incmes) 

?.tS00f*01«  DIMENSION  PARALvEL  TO  Z-*HS  LONGEST  OI-ENSION  ZL  (INCHES) 
Su-BfR  « t 


material  COOES  consiocrco  ARE  ?»  t, 


MAX-G 
S.S00uE*01 
b.OOOOEtOl 
b.SOOOE«Ql 
7. 0000E*01 


PCNT-DAM  REPLACE-CST 


0. 

S.UOOOEtOO 
? • DOOOE ♦ U 1 
I • 0000E+01 


0. 

S.OOOOEtOO 

i.OOOOCtOl 

l.SOOOEtOl 
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n* 

3.snun£*on 

T2  * 

3. SUOOEbOO 

T 3 ■ 

3.S000E+Q0 

TT1* 

2.S50SEY00 

’T2» 

2. 5505ET0O 

TT3* 

Tl* 

3.50iluE*0ll 

T2* 

3 . SUOOEt  00 

T 3* 

3 , 5 OOOE 1 00 

TT1* 

2.231lEbPO 

TT2* 

2.2311E+00 

TT3  * 

Tl* 

3.50l)iiE*00 

T2* 

3 . SuOOE  tOO 

T3« 

3.5OOOE«0n 

TT1* 

2. 15b8E*00 

TT2* 

2 . ISbBEtOO 

TT3* 

Tl* 

3.5&UOE*On 

T2* 

3.5uOUEton 

T 3* 

3 . 5 OOOEbQO 

TT  1 ■ 

2 . 15 1 IE  tOO 

TT2* 

2.1511Et00 

TT3* 

SHUCK 

THICKNESS 

IS  LARGER  Than 

VIBRATION  THICKNESS 

*«PC*  ThiCkNESS*  2.b?blt»00  OPTIMUM  VIBRATION  THICKNESS*  3.21B7E-D2 


@ 


MATERIAL  t IS  btlNG  DELETE!) 

hinimuh  thickness  for  material 


a.iuttsEtoj 

1.S887ET00 

3.0l|S"E*00 

?.8322E*oo 


3*  1U85E*00 
3.5887E»00 
3.o<)sre  »on 
2.8322E»00 


BT  AXIS 

3.t.Sb5t»OQ 
3 • bSSQ£*00 
2 . 8Rb  3£»OQ 
?.b?viE»no 


> MATERIAL  CODE  » 
<.  , "A'cRial  CCO£  * 

m»te«:*l  code  ■ 


♦ THICKNESS  FOR  FACE 

v thickness  foh  face 

♦ THICKNESS  FOR  face 


ONE  m 3.010  INCHES 

T«t!  « 3.010  inches 

THREE*  2 . RBb  INCHES 


TOTAL  COST/IT£m«  81.01 
' •-.NrUS-lN*'dT 

l C S T maTRI X-HATERIAL  V£PTICAL»AXIS  HORIZONTAL 

1 .88  .88  .58 

2 3.2*  3.?*  1.55 

« .7?  .72  ,3b 


FOR  0.1)0  R£R-CEST  OAMAGE  ANO  A FHAGILITV  RATF.  0F5S.O  G'S 
The  COST  IS  81. 01  DOLLARS  *ITh  A MULTIPLICATION  FACTOR  OF 

Kirn  A final  COST  OF  81.  <11  OULLARSFQR  OvER  SHIPPING 
F»R  AllOhING  damage  The  COST  IS  81.01  00LLARS/1TEM 


1.00  tines  ONE 


Tl*  3.50U0E8D0  12*  3.5uOOE»no  13*  3.5nnnE»on  TT1*  2.b078E»DD  TT2*  ?.»078Et0n  TT 3* 

Tl*  3.50u0E»00  T2*  3.5u00E»0(l  T3*  3.5000E»00  T T 1 * 1.80SIE»00  TT2*  l.ROS3E»no  TT3* 

T 1 - 3,5Dun£«00  12*  3.Su0f)E*00  13*  3.500Dt»00  T T 1 * 2.0818Et00  T T2*  2.0818E»00  T T 3* 

MATERIAL  3 is  BEING  OtLETEO 

optimum  Thickness  * 1.328qiE»02  max  ALLOMABLE  OPTIMUM  THICKNESS  * 1.200noE»Ol 

«lNt“iM  thickness  fcr  material  by  axis 


».>3lbE*P0 

* . 7 Jlbt«OD 

3.8838f*00 

7 . *S»OE  »00 

7,bS»UE»00 

3. 7270E*n0 

2.D818E*00 

0. 

0. 

material  LODE  * 

I THICKNES5  FOR 

FACE  one  « 

♦.732  INCHES 

“aTE-IAl  COOt  * 

i thickness  for 

face  T«0  * 

♦.732  INCHES 

-*Tf»IAL  CODE  * 

1 Thickness  for 

FACE  T«REt* 

3.88b  INC  RE  5 

T„TAL  COST/ITE-* 
MlNCOS-lNPjT 

hr.su 

C'.ST  "ATpIx-maTERIAL  vertical #»*IS 

HORIZONTAL 

1 1.S1 

1.51 

D N.  )1 

b.>l  l.bM 

FuR  S.uO  RER-CENI  OA“AGE  AND  A FRAGILITY  RATF  OFbfl.O  G'S 

the  cost  is  88. sn  dollars  «iih  a multiplication  factor  of  i.ns  tines  one 
h i t *.  a final  cost  of  83. is  pollarsfor  o»er  shipping 

FOR  AllDkING  DAma&E  The  COST  IS  8i,Sti  DOLLAHS/ITEM 


. mobETOo 
•JOSOEtOO 
.0B81CF00 
• b2b IEtOO 


,BS87E*G0 
. OOO-ttOO 
. OSObEbOO 


u«  3.snu'JE«oo  i**  3,suoa£»oo  n*  3.snaoE*on  m*  8.8bsoE+oo  ti?*  8.8bSOE9on  tts*  ?,BbB7E900 

T 1 * 3.SUU0£»00  TR*  3.SOOOE*an  T3*  3. snoot *00  TTU  l.S79bE900  n?*  l.S?9bE»00  TT3*  1.787bE900 

"I'd*  im  thickness  top  material  by  axis 

9.S7SSE*00  9.S7CSF900  3.9839E*00 

( l.PS87E«nO  l.SSB7E*00  l.P?3?c*00 

MATERIAL  COPE  = 1 THICKNESS  FOP  FACE  ONE  s 9.S7S  INCHES 

HATEPIAl  COOE  ■ 1 THICKNESS  FOR  FACE  TwO  * 9.S7S  INCHES 

hatf»ial  cooe  * i thickness  foh  face  thref*  3.9b»  inches 

TuTAl  COST/ITEms  83. S8 

mincos-input 

COST  MATRIX-MATERIAL  VEPT IC AL, a X IS  HORIZONTAL 
1 1.9b  1.9b  . b9 

? 1.7b  1.7b  .87 

FUR  eo.00  PEP-CENT  Damage  and  A fragility  RATE  OFbS.n  G'S 

The"  COST  IS  87.R8  DOLLARS  MTh  A MULTIPLICATION  FACTOR  OF  1.89  ’IMES  ONE 

rI tm  4 final  cost  of  iap.s7  oollarsfor  over  shipping 
FUR  allOmInG  uAmagl  the  COST  IS  97.98  DClLABS/ITEM 


Tl=  3.S0U0E*00  t8*  3.SU00E900  T3*  3.SOOOE*On  TTl*  8.1??8Et00  TT8*  8.1?e?E»0n  nil  8.7877E900 

Tl*  3 , SUU0E-00  T8*  3.SoOOE*aa  T 3*  3.SonQF»OC  TTl*  1.8S38E»00  TT8*  1.8S38E+00  T T 3*  V.S790E900 

minimum  thickness  for  material  by  axis 

t.S7SSE»na  K.S7SSE+00  3.9839E»nO 

l.«S87E«na  1.SS87E-00  l.R?7PE»'IO 

MATERIAL  CODE  * 1 THICKNESS  fob  face  One  * 9. STS  INCHES 

material  cooe  * i thickness  for  face  r-o  * 9.sts  inches 

material  cooe  * i thickness  for  face  three*  i.9b»  inches 

total  COST/ITEMi  R7.P9 
mincos-Inpjt 

cost  "ATHI»-«aTEPIAl  vertical, AXIS  hOHIZONTal 

1 1.9h  1.9b  ,b9 

f 1.7b  1.7b  .87 

FOR  80.110  PEP-CENT  damage  ANO  A FRAGILITY  BATE  0F7D.0  G'S 

The  COST  IS  87. SB  DOLLARS  NITm  a MULTIPLICATION  FACTOR  OF  S.00  TIMES  ONE 

m I Th  a final  COST  of  b39.R0  OOLLARSFOR  OYER  SHIPPING 
for  allowing  oamage  the  cost  is  ioj.rb  ooll*RS/ITem 


OVER  SHIPPING  OATA 

T-E  OPTIMUN  COST  IS  81.01  00LLAR3 

The  FBAGILITT  rate  is  ss.o  G'S 
The  PFR-CENT  Oamage  IS  0.0 
The  MULTIPLICATION  factor  IS  1.0 


THE  OPTIMUM  THICKNESS  F0«  FACE  ONE  IS 

the  optimum  thickness  for  face  tmo  is 
The  optimum  T-ICKNESS  for  face  three  is 


3.010  INCHES  IF  material  9 IS  USED 
3.010  INCHES  IF  MATERIAL  9 IS  USED 
8.999  INCHES  IF  material  9 IS  USED 
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DAMAGE  ALLOWABLE  DATA 

Trtt  OPTIMUM  COST  IS  81.01  DOLLARS 

THE  FRAGILITY  RATE  IS  5S.0  G’S 

f nE  PER-i'ENT  damage  IS  0.0 

THE  REPAIR  COST/ITEM  s 0.00  DOLLARS 


THE  OPTIMUM  THICKNESS  FOR  FACE  ONE  IS  3.010  INCHES  IF  MATERIAL  >♦  IS  USED 

the  optimum  thickness  for  face  two  is  s.oio  inches  if  material  h is  used 

the  OPTIMUM  THICKNESS  FOR  FACE  THREE  IS  i , RSt  INCHES  IF  MATERIAL  H IS  USED 


.3  oVERSHIPPING  IS  THE  8EST  POLICY 


*******4*********************************************** *************** ******** 


J.  2*13  UtSU  V 


Card 

No. 

1 

2 . 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 


SAMPLE  PROBLEM  NUMBER  TWO 
INPUT  DATA  CARDS 


0 l 020 1 20 75 1 l 0 .*33900 0t25* 000001  0 . 12300  * Ttv."0  U 12-.  0'D 

1 1 


b • 2fl> 

b2 . »3  123 

m,  a 1 4 . i s 

J 

J 

J J 

0 . 3 

0 .5 

i . 

2* 

•4 

0 101  10 

j 

i 

1*92 

0*3 

i.ri 

“22  . 

- 

A 

J 

J 

5.40 

0.4  3 

0 . 1 

“60  • 

- 

-1 

J 

2.  1 o 

0.  3 

V . 1 

“ >4 . 

, 

.1 

J 

l .44 

0 . 1.5 

0 . 1 

”60. 

- 

- 

-1 

- 

1 .5# 

0 • • 5 

C . : 1 

-4.  . 

- 

- 

t 

- 1.3b 

0 . „ b 

0 . • 1 

-20* 

J 

- 

j 

l • 00 

: • • i 

-20  . 

1*00 

0 • 5 

1 . ■.  i 

-20  . 

-1 

- 

i 

4*20 

0 *19 

C.  1 

i 

-20  . 

2.11 

0 • C go 

0 . t 1 

-20  . 

•001/. 

J 

1 

00  23 

J 

l 

100. 

12. 

35  * 

0 

. 0 

0.0 

J 

A 

bO  * 

3 

. 

3. 

J 

b5  « 

20  • 

1 0 . 

J 

/o  • 
,1 

B0  * 

1 

15. 

i 

Hooio 

ooooa 

101000 

OOOIIIIOOI 

1 1 1 < 1 1 

i » i is  ii  ii  ii  ti  i)  u u it  i»  n ii  n n i«  n n n 

111111 

mu 

min 

111  2, 11  111  1 

222222 

2 2 2 2 2 

2 2 2 7 2 2 

2222222222 

33*333 

3 3 3 3 3 

3 413  3 3 3 

3 3 3 3 3 413  3 3 3 

444444 

4 4 4 4 4 

4 4 4 4 4 4 

4444444444 

555555 

5 5 5 5 5 

5 5 5 5 5 5 

5555(55555 

mm 

lllll 

mm 

ictmiti 

<77177 

l 

9 1 J < 1 1 1 

X 

7 7 7 7 7 

7 7 7 7 7 7 

7777777777 

mu 

Him 

1 111  HI  III 

“mill 

mu 

mm 

•••lllllll 

J 


>. 

J 


0.10 

. J 

0.14 

J 

0.03 

J 

0.20 

J 

0 • 03 
0 .03 
0.02 
0 . J 3 
0.01 
0.  2 


3 « 
J 


i. 

J 


*. 

J 


1.00 

J 

I .50 

J 

0.30 

I .50 
J 

0.30 

J 

0 >50 
0 * 20 
0 .20 

0.13 

i 

0 .B0 


1 • 5 

J 

2.0 

J 

2.4 


0.S 

J 

1.5 

J 

3.0 


7-9 

J 

1 • I 
J 

11.9 

A 

11.  I 

.1 


12. 


24, 


1 

2 

3 

4 

5 
b 
7 
a 

9 
1 0 


i ! i < i i i i • ii ii  i: ■■  w <i  ii mi  ii it )i  n n» ii n n 


a n a ii  i>  u h » » n n » n ii « a u <i  a <i  u n h ii  n ii  m n m ii  ii  h n ii  n u m ii  ■ ii  h n n n n n N n n ,i 
11 1 1 1 11 1 I I 1 I 11 11 1 11  I 1 111  11  11  I 11 


immmomHiooooooooomiooo 

II 
1 

2272222222 
13393333 
44444444 
99399995 
(lllllll 
11111111 


0 Jlllt!!li!liiiil J lllllllllllll 

Hiiamimiimiiiimmiiii 


oooiomiiie 

imnaiiHoantinti 

lllllllllllll 

2222222222222 

3333333313333 

4444444444444 

5555555555555 

I6I0100I0100I 

7117777717171 

1IIIIIIHIIII 

lootinmiii 


a a a i.  u u h a a n n a « ii  a i;  u u m ii  m •* '.  ii  u ii  m u a ii  h ii  n ii « c h a a ii  a ■ n ,i  ii  n h n a ii  n n 
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•**  OPTIMIZATION  PROCEOU«E  FOP  DESIGN  OF  PACKAGE  CUSHIONING  ••• 


1 « NIC  — * CODE  NO.  OF  CONTAINER  MATERIAL  TO  BE  USED 

2 « IC— uPTIMUATION  cooe 


1 * IITh  — ITEM  NUMBER 

20  « MIC  — MAXIMUM  MO.  OF  ITERATIONS  FOR  OROP  HT.  CALC. 

75  « MXI  — MAXIMUM  MO.  OF  ITERATIONS  FOR  C.*CONVEHGEMCF 

11  « MOMJ  MUMMER  OF  Environmental  FREQUENCIES 
J.JSAUF'Ol  (S/LB)  « CS  — COST  OF  SHIPMENT 
25. OP  ( S ) * Cl  — COST  OF  ITEM 

.125000  (in.)  » icon  thickness  of  container 

72.00  ( f ) « teml  — lomest  environment  temperature 

72.00  ( F ) A TrlMH  — - HIGHEST  ENVIRONMENT  TEMPERATURE 


1 SAMPLE  PROBLEM  #2  (MULTIPLE  SINE 
I EXCITATION)  VARYING  TEMPERATURE 


= UMJII)  ALL  UP  THE  l ’iVIRONMENT AL  PREO. 

'ti7  ♦ aub.2B30OE.»0ll.2,it»b0E  + 02  3.1MS9Et02fe.28  3a0E+02i.e8<HLE  + 0 33. 1*1  SRE  + O 3*  . 3M23E  + 0 35  .bS*ITE  + 0 3S  . RbRO  3E+03S  .213  HE  + 03 

*i’  Input  ‘•'or  ranoom  excitation 

. ••  *.  *.  *.  *.  *.  *.  *.  •.  *. 

(C1")  ■ kDJ(I)  - ENVIRONMENTAL  EXCITATIONS  EACH  CORRESPONDING  TO  ONE  op  the  AEOVE  0MJ(I)S 
' ?*■  -r : 5.OO000E-01l.0(J000E  + 0O2*U0O00E+003»00000E+003.00O00E+003.00000E+003.00000E+003,00000E+003.00000E+003«00030E+00 

1 > NC  — NUMBER  OP  CONTAINERS 
1 * H I T E M ---  ITEM  NUMBER 
10  s mnmat$.*.  nuhber  OP  MATERIALS  ON  pile 


C^T-MAT 

cst-pab 

cst-pak 

SL-TEMP 

LM-STRS 

HI-STRS 

GAMMA 

I . MJ'.iUF+OU 

S.00UUE"02 

J.  .OOOOE-02 

•2.2000E+01 

I.OOnOE-Ol 

1. OOOOE+OO 

l.SOOOE+OO 

S.+OOOF^OO 

s.ooooe-o? 

1.0000E-02 

-•.OftOOEtOI 

1 , + OOOE-Ol 

1.S000E+00 

2. OOOOE+OO 

2 . lbOOF^OU 

S.OOOOc-02 

1.0000E-02 

-3.+O00E+01 

3 , OOOOE-O  2 

T.OOOOE-Ol 

2.+000E+00 

l.+*».TO£-Oj 

S.0000E-02 

1.0000E-02 

-b.OOOOEtOl 

2 • OOOOE-O 1 

l.SOOOE+OO 

S.OOOOE-Ol 

l.sa: je+oo 

S.OOOOE-O? 

1.0000E-02 

*+ • OOOOE+Ol 

3.0000E-02 

3.0000E-01 

l.SOOOE+OO 

1 . 3b00F*00 

S.  Q000E-02 

I % 0 OOOE-O  2 

•2. OOOOEtOl 

3 • 0000E-02 

S.0000E-01 

3. OOOOE+OO 

i .OO^NE+OU 

S.0000E-02 

1.0000E-02 

-2.0000E»01 

2 . 000QE-02 

2.0000E-01 

?. SOOOE+OO 

I.OOOOF+UU 

S.O000E-02 

1 .0000E-02 

-2. OOOOE+Ol 

3 •0000E-02 

2.0000E-01 

1 . 1000E+00 

+.eoooFtoo 

s.ooooE-na 

1.0000E-02 

-2. OOOOE+Ol 

1 • OOO0E-O2 

1.5000E-01 

1 . 1 R00E+01 

a.nooE^oo 

S • OOOOE-O  2 

1 . 000  0E-02 

-2. OOOOE+Ol 

2.0000E-02 

1.0000E-01 

1.1100E+01 

gamma  cst-container 

I.7000E-03  2.3200E-03 


I *1 TEM  NUMBER 

I.0000F+02«*EIGmT  OP  ITEM  *I(  POUNOS  ) 

I.2000E+01«  OIMENSION  PARALLEL  TC  X-AXIS  2N0  LONGEST  DIMENSION  XL  (INCHES) 
I •2000E+01*  OIMENSION  PARALLEL  TO  Y-AXIS  3R0  .ONGEST  DIMENSION  YL  (INCHES) 
e.  + n00E  + 01«  DIMENSION  PARALLEL  to  2-AXIS  LONGMT  OIMENSION  ?L  (INCHES) 
NUMBER  « + 


MATERIAL  COOES  CONS IOEREO  ARE  It  2,  + , 10, 


MAX-G 

S.50)UE+01 

b.oOOOE^Pl 

b.50UUE»0I 

>.OOOUE+Ol 


PCNT-OAM  REPLACE-CST 


0. 

S.UOOOE+UO 
2 • 0000E+U1 
I •OOOOE+O 1 


0. 

S • OOOOE+OO 
1 • OOOOE  + Ol 
1 • S000E+01 
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2.1)  u*  3. snunE+ori  f2*  s.siiont+nn  13*  b.soooEaoo  tti*  3.s7bbE*oo  TT2*  3.R7bbE+oo  its*  3.3233E+00 

' — ' Tl*  3.snu0£+nn  T?I  I.SimoE+nn  T3*  3.SflD0t  + 00  m*  2.SS8SEF00  IT?*  2.SSBSEA00  TT3*  ?.3SS3EfOO 


MATERIAL  2 IS  BEING  DELETED 

optimum  thickness  * i.32soie*o2  max  allowable  optimum  thickness  * i.2ooooE*oj 


minimum  THICKNESS  for  material  by  axis 

7.iSHnE»nn  ?.hs»oe*oo  3.727oe*oo 

2.ssbse*oo  n.  0. 


it*************************************************.*********************************************** 

Tl*  3.SUU0E+00  T2*  3.SU00E+00  f 3=  3.SOOOEAOO  TTI*  3.1217E*00  TT2*  3.1217E-00  T T 3*  ?.77SbEFOO 

MINIMUM  THICKNESS  FOR  MATERIAL  BY  AXIS 

3.BSY1E+00  3.8S1WEAOO  3.7283E+00 


Tl*  3.S0U0E*00  T?*  3.Sll00£»00  T 3 * 3.S000E+00  TT18-B.B22SEA00  TT2*-B.82?SE+00  TTSs-S.bllOE+OO 

minimum  THICKNESS  FOR  MATERIAL  BY  AXIS 

1.SS87EA00  1.SS87E+00  S.7S3bE-01 


MATERIAL  CODE  * 
MATERIAL  LOPE  * 
MATERIAL  code  * 


2 THICKNESS  FOR  FACE 
2 THICKNESS  FOR  FACE 

? thickness  for  face 


ONE  * 20.SS2  INCHES 

TmO  * BC.SF?  INCHES 
THREE*  1 0 . 2 Sb  INCHES 


TO’AL  COST/ITEM*  MbS.bU 
MINCUS-INPUT 

COST  MATRIX-MATERIAL  WEPT  I C AL * Ax  I S HORIZONTAL 
2 lb. S3  16. S3  W.b3 


FOR  U.UU  PER-CENT  DAMAGE  AND  A FRAGILITY  RATE  OFSS.O  G’S 
THE  COST  IS  WbS.bO  DOLLARS  MITH  A MULTIPLICATION  FACTOR  OF 
hITh  A FINAL  COST  OF  HbS.bO  OOLLARSFOR  OVER  SHIPPING 
FOR  ALLOmING  OAMAGE  The  COST  IS  HbS.bO  DOLLARS/ ITEM 


1.00  TIMES  ONE 


Tl*  3.S0U0E  »nn  T?s  3.SU00£*00  T3*  3.SOOOEFOO  tti*  S.BOQbEAOO  TT?*  3.80SbE*00  TT  3*  3.?lb3EFOO 

MINIMUM  THICKNESS  FOR  MATERIAL  BY  AXIS 

3. BSWwE+OQ  S.BSWWE+OO  3.72B3F+00 


Tl*  3.SUUOE-00  12*  3.SU0OE  + 00  T3*  3.S000EF00  TTI*  2.B?bSE*00  TT?*  2.B7bSE*00  TT  3*  2.bl8BE+00 

minimum  thickness  fur  material  by  axis 

3.BSMMEA00  S.BSMME+OO  3.72B3EA00 


Tl*  3 , SOUUE+OO 
T1*-1.0hB3E*01 
Tl*-b. 7SB3E*00 
Tl*-1.0bS3E*01 
Tls-b^ROSE+on 


T2*  3.SU0OE»OO 
T2*-1.0bS3E»01 
T2*-h. 7SS3E+00 
T?*-1.0bS3E*0l 
T2s-b.7SB3E+00 


T3*  3 ■ SoOOEfOO 
T3*-l. 133WE+01 
T3*  1.07?bE*00 
T 3 = - 1 . 133Wt*01 
T3*  1 . 072bE  FOP 


TTl*-1.0bS3E+01 

TTl*-b.7SS3EA00 

TTl*-l.fbR3EA01 

TTl*-b.7SR3E*00 

TTls-l.ObRSEAOl 


TT2*-1.0bB3EA01 

TT2*-b.7«S3EAOO 

TT?*-1.0bS3E+01 

TT2*-b.7S«3EAOO 

TT2*-1.0bS3EA01 


TT3S-1.133WFA01 
TT3*  1 , 0 72bE  *00 
TT3*-1.133WE+01 
TT3*  1.072bEF0C 
TT3*-1.133»EA01 
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TXi-X.0bR3Eb0X 
TX3-b.7RR3E«00 
TX«-X.ObR3EbOX 
TX«-b. 7RR3EbOO 
U«-1.0b33E*01 
TX«-b,7RR3FbOO 
TX«-X,0bR3Eb0X 
T X *-b . 7 RR3E*00 
TXa-X.0bR3tb0X 
Tl*-b.  7RR3E»00 
TX«-X.0bR3Eb0X 
TX«-b.7RR3EbOO 
TX«-X.0bR3E*0X 
Tla-b.  7RR3E»00 
TX«-X.0bR3E+0X 


T?« 

T?* 

T?« 

T?« 

T?« 

T?« 

T?« 

TJi 

T?« 

ias 

T?« 

T?« 

T?« 

T?« 

!?• 


-X.ObR3EbOX 
-b.7RR3Fb00 
«X.ObR3EbOX 
-b.7RR3Eb00 
-X.ObR3E»OX 
*b. 7RR3Eb00 
«X.ObR3EbOX 
-b.7RR3EbOO 
X.0bR3Eb0X 
b.7RR3Eb00 
X.0bR3Eb0X 
b«  7RR3EbOO 
X . 0 bR 3EbO  X 
b.v<»b3t:ro 
X.ObRSEbOi 


:an  mot  oetermine  thickness  fjr 

“INlHUH  THICKNESS  FOR  MATERIAL 

n.  0. 


T3«-X.X33bE*Ol  TTI«-b.7SR3EblO  TT ?s-b . 7 RR3E+0P  TT3»  X.07?bEb00 
T3«  X .0  7?b£bOO  T TIs-X . ObR  3E  »0  l T T ?*-I  . ObR  3Eb01  T T3»«X  . X 33bEbO 1 
TSP-I.ISSREbOX  TTI»-b.7RR3EbO ) TT?«-b. ?RR3EbOO  TT3®  I.07?bEb00 

T3«  I,07?bEb0fl  TTI«-I.0bR3Eb0X  T T?»-X , ObR3EbO  X TT3»- X . 1 3 3bEbOI 
T3*«X.X33bE*0X  TTI*-b.7RR3Eb00  TT?«-b,7RR3EbOO  TT3«  I.07?bEb00 
T3«  X.07?bEbOO  TTI«-X.0bR3Fb0X  TT?«- X . 0bR3Eb0 X T T3»«X . X 3 3»EbO X 
T3«-X.X33»E*OI  TTI»-b.7RR3Eb00  TT?=-b, 7RR3Eb00  TT3«  I.07?bEb00 
T 3*  X.07?bEb00  TTXw-X . 0bR3Eb0 X T T?s«X .ObR 3E*0 X TT 3*-l . 1 33REbOI 
T3«-X.X33»E*0I  TTI«-b.7RR3EbOO  TT?»-b . ?RR3EbOO  TT3»  I.07?bEb00 
T3«  I.07?bEb00  TTX«-X . ObR 3EbO I TT?»«I .0bR3Eb0X  TT3»-I . X 33bEbOI 
T3»-X.I33»EbOX  TTXa-fc.TRRSEbO''  TT?«-b. 7RR3Eb00  TT3»  I.07?bEb00 
T3«  X.07?bEb00  TTX«-I.ObR3EbO  T T?»-I . Ob R3EbO 1 T T3«-l . X 33tEbOI 
T3«-I.X33REbOI  TTIs-b.7AR3Cb00  T T?s«b . 7RR 3EbO 0 TT3«  I.07?bEb00 
T3«  X.07?bE*00  TTX«-X.0b‘<3E*0X  T T?«-X . ObR3EbO I TT 3«-I . X 33RE bOI 

T3«-X.X33»Eb0X  TTX»-b.?RR3Eb00  TT?»-b, 7RR3Eb00  TT3»  I.07?bEt00 
OROP  HGT.  CALCULATIONS  MATERIAL  COOE  ■ ? THIS  MATERIAL  OELETEO 

BY  AXIS 

0. 


ALL  HUERIALS  OELETEO  — NO  OVERLAP  BETWEEN  TEMPER ATURES-OPT I MI  7E  ON  DATA  ACCUMULATED 


over  shipping  data 

The  OPTIMUN  COST  IS  RbS.bO  00LLARS 
THE  FRAGILITY  RATF  IS  SS.O  G'S 
THE  PFR-CENT  OAMAGE  IS  0.0 
The  MULTIPLICATION  factor  is  x.o 


The  OPTIMUM  thickness  for  face  ONE  IS  BO. SR?  INCHES  IF  material  ? 
the  optimum  THICKNESS  for  face  two  is  ?o.sr?  inches  Ie  MATERIAL  ? 
THE  OPTIMUM  THICKNESS  FOR  FACE  THREE  IS  IO.?Rb  INCHES  IF  MATERIAL 


IS  USEO 
IS  USED 
? IS  USEO 


OAMAGE  ALLOWABLE  DATA 

THE  OP  1 1 MUM  COST  IS  RbS.bO  OOLLARS 

THE  FRAGILITY  RATE  IS  SS.O  G'S 

The  PER-CENT  OAMAGE  IS  0.0 

The  REPAIR  COST/ITEM  ■ 0.00  OOLLARS 


(O 


the 

the 

the 


OPTIMUM  THICKNESS  FOR  FACE  ONE  IS  30.SR?  INCHES  IF  MATERIAL  ? 
OPTIMUM  THICKNESS  FOR  FACE  TWO  IS  ?o.SR?  INCHES  IF  MATERIAL  ? 
OPTIMUM  THICKNESS  FOR  FACE  THREE  IS  XO.?Rb  INCHES  IF  MATERIAL 


IS  USEO 
IS  USEO 
? IS  USEO 


.VfRSHlPPlNG  IS  THE  BEST  POLICY 


TABLE  VI 

SAMPLE  PROBLEM  NUMBER  THREE 
INPUT  DATA  CARDS 


Card 

No. 


1 

013  10120751  i 0 

• >3390  Out.  23. 

m 

0 0 w * 

• 

123. 

0 

o / 2 • n o i o 

a 

73.onc.-i 

2 

3 

6.  *8  J 

i. 

62.63 

123.66  >14. 

L L 

139626.3 

L 

1 ttti  a . 

763 la  1 .574396 

.233*,.4.  §7*176  . 036263.  17 

4 

0.3 

L 

0.5 

L 

1 . 2. 

L L 

3. 

L 

3* 

3.  3. 

3 . 3 . 3 « 

5 

0 1 o 1 1 o 

6 

1.92 

L 

0 . . 3 

L 

r.  1 *22. 

L L 

0.10 

1.00 

1.5. 

1 

7 

5.  40 

L 

0 . v 3 

L 

C . . 1 - 6 1 • 

L L 

0.14 

L 

1>50 

2.0 

2 

8 

2.16 

L 

0 . • 3 

0 • •'  1 ->4  • 

L L 

0.03 

L 

0.30 

2.4 

3 

9 

l • 4 a 
L 

U . 0 3 

L 

' 1 *60. 

0.20 

1.50 

0.6 

4 

10 

l *58 
L 

0 • r 3 

L 

« 1 - 4 C . 

I 1 

0.03 

0.30 

1.5 

5 

11 

l • 3o 

L 

0 . -3 

L 

n.  1 -20. 

0.03 

0.50 

3.0 

6 

12 

1.00 

1. 

fc  . . 3 

!-u  1 - 2 u • 

1 

0.02 

0.20 

7.9 

7 

13 

l.uo 

L 

0.1-3 

0 . . 1 - 2 L . 

0.0  3 

0*20 

1 . 1 

6 

14 

4.20 

l 

0 . t s 

1 

« • 1 “20  « 

0.0  1 

0.13 

l 1.9 

9 

15 

2*  1 1 

L 

0.13 

U • ' l * 2 , « 

0.u2 

o.eo 

* l • 1 

1 0 

16 

.0017. 

1-  L 

0023. 

17 

l 

100. 

12. 

12. 

24 

. 4 

18 

1 0 . 

0.0 

0 . i 

19 

60  • 

i- 

3. 

1 . 

20 

65  • 

20* 

l 

**. 

21 

70. 

6 0 « 

15. 

i 


t 


III! 

till 

uii 
im 
3 3l  ] 
4444 

nn 

till 

hn 

i;l  i 

mi 

1 1 1 1 1 


mmmiimmmmmm 

i i i it  ii  ii  ii  it  ii  ii  mi  ii  a ii  n n h n n ii  ii  n h ii  u u m r x it  m ii  u it  n n a u « ii  u n u ii  it  u m u 

11111111111111111111111111111 


mni  Min 

■ 1 1 n ii  ii  a H a a n 

111U1I1I11 

nmmm 

ininlim 

44444444444 

nmmm 

iimmiii 
nmmm 
mil  il  mi 
mimnii 


■ mill 

» » ii  n n u n 
1 1 1 1 1 1 1 

mnn 

33331333 
4 4 4 4 4 4 4 
lilllll 

cum 
mnn 
i j 1 1 1 ii 
mini 


iiimimimi  iiiiiimiiii 
mmiimmmmimm 

i i i ii  ii  it  ii  ii  ii  ii  ii  ii  ii  n n » n a a a ii  a a » t,  a u n n a n a a a n n i u ii  a it  u ■»  'i  it  ii  n 


iimmiii 

i a a a ii  u n m u a n a a a n 
11111111111 


nmmm 

mmn 

m 

nmmm 

mnm 

m 

44444444444 

44444444 

444 

nmmm 

mmn 

m 

iiiiiimii 

mum 

ill 

nmmm 

mnm 

7 7 7 

iimiimi 

mum 

III 

limn 

mmn 

III 

HIM 

n na  a a 

11111 


III 

ii  a a a 

1 1 1 


a a it  a m k . ,i  n u u a n a a a n n n n a a n a a a 
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’ - M **  IZ  a T I ON  M MoC  F FOR  DFSIGN  OF  P A l k A Gk  CUSHIONING  • 


O' 


l 1 Nit  ---  C’M  i‘»  CONTAINER  ***  Tt  R I At  TO  RC  U3F  0 

i = ir---  pm- I /*M  * er  ;* 


i a 111 

e - “It 
* n « - » : 
li  * 

3 . 3 «.  *> . t i ( » 

i^.r^  ( i ? 
.li-O'1"  U’*.' 
'n  t F > 
’ \ F > 


- - - J T * * •.  ' • M ( 4 

--  -A  i I-J-  »c.  .•»  I Tf  w * T l UN  i F QB  n«OP  HT,  e»tC. 

-•  s;  . ■ ► pf*AMPsS  FOB  U-C0N»FRGFNCF 

V-*H*  If  F N»  I Wv'N-F  *•  T a l » »F.  JtiF  %C  1 F S 
H i a . s ---  C.  ST  ► N-lP-e  nT 
= Cl C 'ST  ?(  I ! F ** 

- r*  ■,  ...  T«;r«*,TSS  ^ CONTAlNfB 

* M**l  tC-£ST  { Si  | PUN-t  NT  TF«Pf  Si  TURF 

- ' ► «-  ...  t\.I«;N“tNT  Tt-F-FBAToRE 


i SAMPLE  PROBLEM  #3  (MIL-STO  810B  \ 
i EXCITATION)  CONS1ANT  TEMPERATURE; 

i.  -1 


•»  : * v-JM)  * ^ F t-f  F*.»  H-N-tNTAi.  CPF'S. 

, J*r  «'M  ♦ » 1 .f’ShbM  »P*  1.1*  lS'F*n*t.ii  louF.tft  IS  *f  ♦OIN.  JRB? JF^05S.fcS*l?f  ♦OJS.RhNp  it  ♦03G.fl  HRf  #0  J 


•S  £ I.,1, I)  • *s>  l * . **•*  f n T a 4 F»:;taTI;nR  FAC-  c^bbfsp  NDiNG  Tl  OnF  CF  W »pr,F  0*J(I)3 

f-'  iSP  £•  11  p..'0nM  OV.  JPm.nt  ♦ C'M.  PP  OP  OF*  Op  a.  Of  ''OP£*Olil.'VOOUf  ♦POl.  POOP  OF  *005.0  COOOF  ♦00  5,  OOOOnfc  ♦00  5.  OC/OPOFtOG 

; t n:  ---  %„•«***  rt  c *)*.ta  1st  *»s 
i 1 “Pt*  •••  Pt**  N„“oF- 


i - * 

-N-AT$-*» 

t«  '*AtF- 

I At  3 N F 1 1 £ 

S ’ *“A  ’ 

CS’*F  AH 

C«T-pa* 

♦ fT£HH 

L ■ ■ S TB $ 

-1-STRS 

GAHHA 

S.r  'fV  1, 

‘•‘'.‘T  ‘ F ••  «’ 

•?.?r'ppfc»»u 

i .rMcof  *pi 

t.p(00k»00 

1 . SPOOF^OO 

N.  * 

N.n0  - *«r)^  1. 

T.'f'OM.-n* 

• b.oo  Ji'F*m 

l.^OPUF-Ol 

1 .SPOOF ♦uo 

i . OOOOF *00 

e. 

. k « ( 1 

s.  •j'f  'e  i, 

e 

• j.  ♦r*ook  *o  i 

J.ODOOF *{  ? 

i.noof'k»ui 

?.«ppCl  tOO 

1 .«• 

JCF  *CL 

S . (JUU  jk  1, 

OOOPt*P? 

-b.c?cup£»0  1 

?.ooooF-ni 

i.sopoktuo 

8.0000F-01 

. . 1 •» 

t . ,i 

S.  T f-  N*  1, 

n >rt  •-? 

• n p F ♦ n l 

l.norot»o? 

,.(,oonk-.Ji 

1 .S^OOk  *00 

1 . i* 

;--.F  ♦*»!» 

-Mi*  1, 

•n'pPF-Mc* 

-<.*iauPF*a: 

i.UOPOC-O? 

s.rrpot-oi 

i.ooooF^no 

1 . 

C C.  * * 'J 

S.f*1  -f-V  1, 

' -r  >»  •v»i* 

• P.n-ir  nf  *ni 

?.OOOOF»0? 

f, m «oi 

F.RGOOF^no 

1 . i 

o : f ♦ ».  u 

S.-JCJ  ’ f • ^ 1, 

rnu"f -n*! 

T.noroF»P? 

?.'ii»f*rk»G,i 

1 . 1000k  #00 

» , l) 

■*  r f • n u 

k-tV  1 , 

!* 

J f <*l 

1 . r,  o n p f • o t 

l.SOUOk--l 

1 . IRUOF^Pl 

e • 1 1 

rcr  *cu 

S.0-_3JF»*»  1, 

•Z.OOOPt  *01 

J.noonf *0? 

S.noont.oi 

& • 1 loot ♦ni 

«a-*a  CST-CMUIsfR 

i.  ’■  j:r-  » *.ie*  f-c  3 


i*Pt-  '•  j • n fc •* 

i.jnoor*??»«tiu«T  jf  in>  * i ( pooNw-*.  ) 

it4lCQt*Cis  N bamaliFc  M *•»■!«  L oSGt  S T 01“FnSI0n  (INC*fc5> 

l.ZOGMPU*  Ji-FNSIHN  PAMAtUl  T0  t • A > IS  }RO  t'JSGFST  DIMENSION  T t (INC-E3) 
? , * C P:  F ♦ M * 21»*iNSi:N  RARAtiFt  to  2*«U5  '.ONGtST  m«EN9!.N  Zl  (INCHES) 

'.u“?FB  « . 


"ATlbia*.  ;gjFS  C NSI.F^FO  A»f  *,  , 


PCNT.TA-  BtBiACF-CV 


-A  i*i 

i . * r*  ■:  u k ♦ “ i 

fc.*»S  sE*M 
s . « ?i  E •'  i 
>,  Q\  , F ♦ J i 


S.O'"  3f  •uO 

jE  ♦••  1 

• . no f o g • 1 1 


1 . 0 ( 0 • > • r 
• .oc-ntt  •nt 

i.saoue*'-! 


10, 


1 16 


' I = 

it  b^e  ♦ op 

I3« 

9 • Su'TOE  TOO 

T3« 

3.somit*on 

TT  1* 

3.8JSb£*nn 

TT3« 

3 . 8 RS  bE ♦ 00 

TT3* 

Tl  = 

IP: 

3 .Sijnut«')0 

T 11 

3.SuO"E*i)n 

T T 1 * 

5 • 1 b3RE  *00 

TT3« 

S.lb3R£*00 

TT3* 

Tl  = 

3 * SUUilf  ••Ml 

T3« 

3 . Siintlt  *0n 

T3« 

s.snone *on 

TT1* 

3.83?3E*00 

TT3* 

3.8333£*0D 

T T 3* 

1 1 = 

i.  bl 

T3S 

3.5u"iit  *"0 

T3* 

3.sni)ot4(>n 

TT1* 

3.R10Rl*00 

T T 3 « 

? . * 1 ORE*00 

TT3* 

MATERIAL  C 15  HEInG  OElE  TED 

OPMmi.m  T-IC«NtSS  s 1.4bS33E«ni  mai  ALLUmAHLE  OPTIMUM  THICKNESS  * 1.30000E*01 


MiTt^lAL  1 15  9U1'.  DELETED 

uPlt**J“  TmICknESS  S i.8bS33£*ni  mai  ALLOWABLE  OPTIMUM  THICKNESS  « 1.30000E*01 


Shi.Ck  ’mICknESS  IS  l*RGFR  THAN  VIHPATION  THICKNESS 
SfJ(K  T»1CkNESS»  3.RORbE*n(l  uPTImum  VIBRATION  THICKNESS'-  3.818TE-03 


. a H A T £ R 1 A L » IS  BElNu  UELETEO 
(2.2)  MINIMI. M TfllCuNESS  ECa  MATERIAL 


S.b'Ibl£*0J 
5 . l h«f  •*?  rr 
3.8333E  *'TU 
?.R3??E*0  > 


«.biibl£*UO 

y. 

o. 

3.R333£*no 


HT  Alls 

».3S3i£*00 


3. rorre *nc 


MATERIAL  code  - 
maTFR'Al  LODE  * 
material  CODE  * 


1 

THICKNESS 

FOR 

FACE 

ONE  * 

S.bOb  INCHES 

1 

TH1CKNES9 

FUR 

FACE 

T MO  » 

S.bOb  INCHES 

1 

thickness 

FOR 

FACE 

THREE. 

R.3SR  INCHES 

tu'AL  CuST/ITEms  <13.01 

(2.4)  M;NCuS-I  nm.  t 

Lu'JT  «a:«Ii-maTM1aL  «£RT1CAL,AI1S 
1 1 . ?<*  1.  >1  .TO 


MOP! ZONTAL 


t—.  KR  P . II,  L£M-lt*-T  DAMAGE  .".NO  A FRAG1L1TT  RATE  OEin.O  G'S 
,2.5'  ThF  COS'  IS  R?.'J1  DOLLARS  « 1 1 h A MULTIPLICATION  FACTOR  OF 

' A FINAL  C .1ST  UF  R3.ni  PJLLARSFOR  Uv£R  SHIPPING 

FOR  allCi-InG  damage  The  COST  IS  8?. 01  DOLLARS/ITEM 


1.00  TINES  one 


Tis  3.  Si'll  OS  ♦ ;n  T3  s 3.5U‘'Pt»nO  Tl*  3.S000t*nn  1 T 1 • 3.R0T8EA00  TT3*  3.»0T8£*OC  T T 3* 

— I G 1 — "M  TmICknESS  FGM  MATERIAL  hr  A«IS 

•,5'SSEtJu  *.5TSSE*00  3.R8iRf*00 


Mi'ESIAL  CODE  r 
ma'er;al  lode  « 
MATERIAL  lode  = 


i thickness 
i thickness 
i thickness 


FU«  FACE  ONt  * 
FJR  FACE  ThU  » 

fur  face  three* 


R.szs  INCHES 
R.STS  INCHES 
3.RB»  INCHES 


TI.TAj.  CUST/!Tt“s  8T.R8 
m.nlOS* InRjT 

CLST  H|TR!>*«ATt«IAL  » E « T 1 C »L » A * 1 S -ijbijonTal 

1 I. ib  l.»b  , b K 


FCP  S.no  RE--IENT  DAMAGE  AND  a FMAGIlITt  BATE  OFbO.O  G'S 

T-t  LOST  i<-  eJ.NR  DILlAMS  A MULTIPLICATION  FACTOR  OF  l.PS  T1M£9  ONE 

h.  tm  a final  C,3I  C-f  R3.b)  (lULLAMSFiJO  Uvt»  SHIPPING 

F'M  A!  Li  king  a m A . e T..f  COST  IS  8 8 . R 8 DDL  LARS/ITEM 


.?S8»E*00 
•OB33ETOO 
• S 3b  IE  tOU 
.RORbEtOO 


.RRRTEtOO 


TU  3.  S0u0E*00  T?»  3.S000t»0(T  T3*  3.SOnoE«nn  T T 1 » E.ZbSOEFOO  TTJt  8 . 8 b SOE  r DO  TT3*  8.Sb»?£tC0 

minimum  ThICknESS  ► UR  «* TEh I *L  Hr  AXIS 

b • S 7S5E  *00  b,S7SSEbOO  3.R83SE»00 


matfrTaL  COOE  a 
MATERIAL  COOt  « 
MATERIAL  COOE  ■ 


1 THICKNESS 
1 THICKNESS 

i thickness 


FOB  FACE  ONE  ■ 
FOB  FACE  TkO  * 
FOB  FACE  TH«EE» 


b.S7S  INCHES 

♦,s?s  inches 

3.R8b  INCHES 


total  COST / I TEN*  87. RB 
mInCUS-InRuT 

Cost  matrix-material  vertical, axis  horizontal 

1 l.bb  l.bb  ,bb 


FOB  80. UU  P£R-CENT  OAHARE  AND  A FRAGILITY  RATE  OFbS.O  G'S 

The  COST  IS  87.98  OOLLARS  kITh  a HUL T I RL IC AT  ION  FACTOR  OF  1.8S  TIHES  ONE 
■ITH  A Final  COST  of  109.97  DOLLARSFOR  OVER  SHIPPING 
FOR  ALLOWING  OAHAGE  The  COST  IS  A 1 , A B OOLL»RS/ITEM 


3.S0j0E*0D  T ?*  3.SU00EV00  T3«  3.S000E*0O  TT1«  Z.UEBEtOO  TT8*  8.i8??E*00  TT3«  8.7B77E»00 

rinihuh  thickness  for  material  sr  axis 

».S7SSEvOO  ».b7SSE»00  3.9839£b00 


MATERIAL  COOE  « 
MATERIAL  COOE  « 
material  COCE  « 


1 THICKNESS  FOR  FACE 

i thickness  for  face 
a thickness  for  face 


one  « b.SFS  INCHES 

TMO  * A.S7S  INCHES 

THREE*  3.98b  INCHES 


TOTAL  COST/ITEma  87. A8 
minCls* Input 

COST  MATHH-MATERTAL  vertical,  axis  HORIZONTAL 

1 l.bb  l.»b  .bb 


FOR  BO. UO  PER-CENT  OAMaGE  AND  A FRAGILITY  RATE  0F70.0  G’S 

T-E  COST  IS  B 7 , A 8 DOLLARS  »ITh  a MULTIPLICATION  FACTOR  OF  5.00  TIMES  ONE 

HlTM  a final  COST  of  b3R.R0  oollarsfob  Over  shipping 

F.R  AlLOrING  DAMAGE  TmE  COST  IS  10<;.R*  DOLLARS/ITEM 


Over  SHIPPING  data 

The  option  cost  is  «8.01  OOLLARS 
T-E  FRAGILITY  RATE  IS  10. 0 G*S 
T "E  PER-CENT  DAMAGE  IS  P.0 

the  multiplication  factor  is  1.0 


The  OPTIMUM  T*IC«NESS  FOP  FACE  ONE  IS  S.bOb  INCHES  IF  MATERIAL  1 IS  USEO 

3.2)  The  optimum  thickness  for  face  v«o  is  s.bcb  inches  if  material  i is  used 

Tme  OPTIMUM  Thickness  for  face  Three  IS  b.3Sb  INCHES  IF  MATERIAL  1 IS  USEO 


damage  allc«aslE  data 


The 

The 

The 

The 


optimum  COST  is  BB.RB  OOLLARS 

FRAGILITY  BATE  IS  bu.0  G'S 

per-cent  damage  is  s.o 

REPAIR  CCST/ITEm  s I,,(J  DOLLARS 


Tme 

T"E 

ThE 


optimum  thickness  fur  face  one  is  ».S7S  inches  if  material  i is  used 

optimum  thickness  fur  face  t*o  is  b.575  inches  if  material  i is  useo 

optimum  thickness  for  face  three  is  3.rr»  inches  if  material  1 is  useo 
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TABLE  VII 

SAMPLE  PROBLEM  NUMBER  FOUR 
INPUT  DATA  CARDS 


Card 

No. 


1 

0 1-3 

l/0/blr0.>3s90u'J  Z 5 

. 0 C .123 

o n / z . . o v 7 > . o 

o n 

t 

i a 

2 

9.  «2 

7b l • 4 vo > 7 

• 5 9 1 / 3 . 

J ‘<o2i50.  / -)&  3 0 1 

• bvjoOi.  no|2(iit .J7  2 

412.74*.  8Z3.h9 

> . 06  t 

- 4 5 . l 7 E - 4 i . 

9 1 1 - ‘t  . . . 

■»E*4l  . : 3 i - .5 • Uvf  - 73.n3t.-b5. 0 VE - 7 3 

•09&-75. uvE-7 

-i  j 

r 

0 1"  It) 

• Y L 

O.o 

1 

0 . i 0 

1.00 

1 . 5 

i 

n 

i 

3 ■ 4 0 

0.3  • 

1 * 0 . 

0.14 

1*50 

2. 0 

2 

8 

. i 1 b 

0.?  . 

1 - >4  • 

0.13 

0.30 

2.4 

3 

9 

l • 4 4 

0.3  > . 

1 * 6 . 

0 . /( 

1.30 

0 • e 

4 

10 

1 • 5 b 

U . 3 • 

1 -40. 

0.03 

0*30 

l *5 

5 

11 

l • 36 

o . 3 • 

1 - z . 

0.-3 

0.50 

3*0 

o 

12 

1 • 0 0 

: • = 

1 - * • 

0,02 

0.20 

7 . 9 

/ 

13 

l . 0 0 

• 3 ' . 

1 - z . . 

0 . i 

0 . 20 

1 . i 

d 

14 

a.  20 

0.3  . 

1 - z . 

0 . ? t 

0 • 1 3 

11.9 

9 

15 

2-  i 1 

0*3  . 

1 -Z  . 

0 . j2 

0 . b0 

1 l . 1 

1 0 

1 6 

.001/ 

.d'/3 

17 

i 

mo. 

u. 

12. 

Z 4 . 4 

18 

l 5 . 

o . 

0 . ■ 

19 

b 0 . 

3 . 

3 . 

20 

6 & • 

Z 0 • 

i 0 . 

21 

! 0 • 

MG. 

15. 

J I J 

i i i 

1 l I 

2 2 2 

134 
4 4 4 
333 

III 

in 

■ 

s i ; i 

8 1 1 1 

it)* 


ii  i 

n ’ i a 

1 1 1 


linn 

■ ii  ii  it  it  u it  ii 


iiiniiiiii 

it  it  ti  ti  it  n ti  it  tt  i'  ti 

I 1 12  III  11  1 1 


iiimiHimmiiiiiiiiiiiiiii 

It  X li  It  it  )• ))  X It  <1  it  it  u it  X it  u it  X It  tl  II  St  tt  u it  u x x I! 


2 2 2 2 2 2 

3 3 3 3 3 4 

4 4 4 4 4 4 
333313 

mm 

2 2 3 3 3 3 

1 1 3 1 1 1 
1 1 1 1 1 1 

ii  ii  ti  ;i  it  n n ti  ti  it  ti  ti  ■ t.  ti  it  m a n tt  :i  k ii  ii  it  « n n u n n ••  ti  it  ji  ti  tt  v *i  x t*  h i 


iiiiiiiiiiimiiniiii 

l!ll3IIIMimil!!l!l! 


11111111 

i 

1 1 1 1 1 1 

2 7 2 

2 2 2 2 2 

2 

222222 

3 3 ) 

31333 

3 

333333 

4 4 4 

4 4 4 4 4 

4 

444444 

I S 3 

sms 

5 

SSSS5S 

III 

mss 

I 

mm 

3 2 1 

mn 

3 

332222 

III 

nut 

1 

mm 

III 

mn 

I 

mm 

mil! 

It  11  U B X l>  U ■ II  II 


2 

3 

4 

3 

• 

2 
3 

I 

it  it  w it  u i it  n ii  M 


II 

It  II  X I 

1 

2 

3 

4 

3! 

II 

2 

II 

II 

! II  II 


I I I 

I It  II  II I 

1 

2: 

I 4 i 

3 ! 

Ill 

i; 
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• ••  pt'MMiAML'S  P«OCt  ESi^N  l*>  L«AUF  . WC* 


1 = M 
i - n — 


* T . 


.‘.n  Si.  Of  COMMNtH  TU  Hf  U$F0 

■!/*UC  » rnj-t 


E A ’ ’ ■*  l’»-  ’» 

= -IC  --- 


SAMPLE  PROBLEM  #4  (RANDOM 
EXCITATION)  CONSTANT  TEMPERATURE 


,-pt" 

sc.  cf  !1t«AM;sS  D*OF»  -T.  CALC.  * 

»«.  s -i!  ---  - sc.  c>  !n^«Tt  <ss  r':o  g-con%f *gf scf 

1 1 - -j  ---  s.wtii  f fs.I"  A-fMn  f»F  ,f  sC  IF  8 

i.Asn  (»  . ■«'  s :<  t st  * s-ip-tst 

i i ' * »,  i ---  c*st  ''t  iu- 

,;<«*•  i is.;  i i..s  t-icsfss  '►  c.s’aish 

?r.Or  ( f I * W"i  ---  Lw-FST  £s»H»JS-fST  T e **Pf  fi  A ! jM£ 

?*,"■  < * ) i It-*-  ---  "la"rbl  ls»Hr,*fsT  ff*P{fiAT,wfc 

( <U)  * C-JU»  All  :*  T-F  [‘Oi"!  N-t'.t  AL 
Isn^t  ( -N  MClUtpS 

.fee  " *S.  1 >.  n-'.>M.'*i',f:Pt«P*l.i,*Prnf-*l.inn,n«r’»S.T«"OPE-07S.830P0C-ab5.P<»0O0E-'m.O*O00£-075.0*POIU-07 


: ) 


-.S»fST4L  iACl’Alp 


* AC- 


r oO£SP?NC|NG  n Isf  C*  Tnf  AtfO*f  OMj(i)S 


U 2 -s- A*5 


Sw-«t*  **>  LOStAlSfWS 
--  | t f - S , 

...  s -If**  x)f  *ATf*nL3  -s  f Il€ 


C S t-“a  * 

^5t-f 4d 

CSNBiE 

Sl-U«P 

L — ST8S 

M-Sl&s 

Gamma 

1 . * r f • M 

S.r  ‘ F-'M> 

l npnf - f 

,jne#'ji 

1 . n'irne-ni 

; . ponoc ♦on 

I,%oo of Ano 

« c P '»  ♦(.  i 

1 . ijOnnf  mm 

-b.nnUOtbP  1 

1 .»nooF-ni 

1 • SOOuC*iio 

^ . P000E  *00 

*.  lb  « ••  i 

S.  >.  >-*F  •,'i* 

1.  ^ 

- >1 

».mmf -p^ 

». onont-oi 

^.•DOOIaOU 

1 .Ibvl'lf  ♦ !!• 

S . 0 n f)  i|-L^ 

l.^ncpf -u* 

•b.Tl'JOf  #01 

^.r*ipof-oi 

i .snon£»uo 

S.00U0E-01 

l.SP* 

S.  l:  , ■ (■Mf 

i.  nu:j»-  ii» 

-<*  . (jnr  «fc  •(!! 

A.pnuof -n? 

3 • 00np£ • J 1 

l.SCOOf 400 

1.  Ib^L'f  *PL' 

1 .Cinn«F  - J# 

- '.nnof  £*m 

3.nnoo£-o^ 

s.ooooc-ui 

j.ooonf aoo 

1 .CC'-.Jf  ♦ '.i  L 

S • *J  <:  J V l • n t 

a .O^noF -Lf* 

•i . 

r».PrMinf  -Pj» 

^.n(JP^fe•^l 

7.4ooofAno 

l.UPQUfbOU 

s,  np CJF 

l.'jnnre-u^ 

•?.«P0n£#01 

J.  TUP-tr-P,* 

?.ocaot-ui 

i, inootAOo 

8. ■* 

I -1^ 

-?.0!>0rk*01 

1. jpnjf-p? 

i .soont-ui 

1,1 ^00E«01 

J.llrCt*PU 

S.00npE•0^ 

l .O''OOF-0^ 

i » OOPO£  *0^ 

f.0000£«0l 

I . I 1 0 0 € ♦ 0 1 

G**«a  CsT-CC'tf  A1SEW 

l.JC'lOf-D  «*.  i 


1 = 1 *f  " s,*nt» 

KO^COEaT**-*  IG-t  Pf  ITt-  •»!(  Pl'lSCS  ) 

U^C^COl*  .I-tsSlON  PAHALLfi  la  *•  a » I s ^r,  tCS&EST  Dl-E*SI0S  *l  (INCHES) 
1 ,*»**l»f  ♦"'I*  I " f s 8 1 0 N PAtlALLfi  tn  t-A«U  jup  LONGEST  OI*EHSIOS  »l  (INCHES) 
.1-fssir.s  m*bau£l  tw  Z-A«IS  L0sC,fST  C !*•£ s$ I o*.  ?L  (lsC*fS) 
sv»*tff*  * • 


-ATt«Ut  CO*«S10£-f.C  AB[  i. 

“A  i • ^ PCNT-DA-  °E  pl  aC£*C  St 


1 ,S*  1 

b ,rCGjl*ni 
b.A'J'JUt*1.  * 
7.f  OUuCOi 


S.TOCIf^UO 

ji 

p. n0P0£*Ui 


c. 

5.no"CF»ra 
1 • norj  ot  ♦ m i 

1 .%n00£»Pi 


10. 
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11* 

♦G-' 

10  = 

S.SunnE  too 

T3  = 

a.soooEtno 

Ml* 

3 • bRpBF  tOQ 

TIP® 

3.bSP8EtOO 

T Y 3* 

T is 

i.stu  • t ♦ ii r* 

Ids 

3 . S 0 0 (.  1 *!■' 

T 3* 

3 , 5000t  t On 

me 

N»B3?lEtOO 

T TP* 

t.B3?IEtOO 

TT3* 

1 IS 

1.  bOl*Ufc  ♦uu 

IPS 

i.suouEtno 

13* 

3.5oanttoo 

TTle 

P.  TSTPEtOO 

Up* 

P.FSTPEtOO 

T T 3* 

Us 

3 . SlU'Uf  ♦U«' 

IPS 

3.Sucot«on 

T 3 = 

3 . snout  tun 

m* 

P • 38P0F  tGO 

TIP* 

?.  JBpCEtoo 

T T 3* 

jncr*  n.jc,',Jtss  is  larg'r  than  vibration  thickness 
S«'CK  »Hjc«*.tSSs  P.fmnttno  lf*T!"Um  VIBRATION  ThICKNESS*  3.P18TE-0? 


(i.h 


Hi’f  »;«.L  » is  Ht  I Mi  .MLETHl 

HIMHjh  I-ICKNtSS  fCfc  KiUMlU 


N . bGblE  •■'■1 
t . M 1 1,  l E ♦ I 0 
3 . Jr  H M t ♦ 0 


i.bNhlEtnn 
b.RlOlEtOU 
3 . CuRbEtOO 
P.UPPEtPn 


ST  »*I3 

t.  IS  YSEtnil 
b.PSblt  *00 
P.RRt  3EtPo 
P.B7?<«ft00 


c ont  s 

A ^ L.ji’t  s 

hn»iil  i (if:  t s 


t ThICk  NfcSS 
• 1-IC'NtSS 
1 THlC«NtSS 


FOR  FACE  ONE  * 
»L’R  FAC*  ThI)  e 
*UB  FACE  Th«EE* 


3.(110  INCHES 
3.010  INCHES 
P.RKt  INCHES 


* 


i.  C 'ST/ITC***  si.'ji 

COS-I'.Hjt 

* *•»  JO  I <«-A  TEHIAl  *Ebiical.A»IS 
l.TR  l.T"  .7' 

fc . p i b • c c 2.83 

,7i  . 3b 


HORIZONTAL 


fw8  ".I.J  Ft»-:f.T  PAHAC-t  ANC  a FRAGILITY  RATE  OFlS.O  G'S 
T-E  LrST  IS  d I , r 1 oOLLAHS  «TTh  » MUL  T I P(_  1 1 A T I ON  FACTOR  OF 

■ it-  4 final  cost  of  hi. hi  p'jllawsfur  over  shipping 

ALLO*I.G  v»"A(,E  THt  COST  IS  11.01  OOLLARS/ITEM 


1.00  TIMES  One 


1 .*  3. SOU  1 1 ♦ n f- 

IPs 

i.Sm  iffnn 

1 3* 

i.soonEtnn 

ms 

P.tOTBEtOO 

TTP* 

P.»0?BEt00 

TTle 

Us  t.sni'C1.  tijn 

tps 

3 • Ln'M'E  tnn 

T J* 

3 . snoot  ton 

TTle 

l.NOS3EtOO 

TTP* 

1. lOSiEtOO 

TT3* 

J. s..l  3fe »A> ; 

IPS 

3 . sooct  «nn 

T 3 = 

s.snootton 

TT1* 

P.OBIBEtOO 

TTP* 

P.  OBlBEtOO 

TT3* 

H A 1 E R 1 A 1 i IS  IF 

OPll-.lH  T-IC«MSN 

IM. 

OF  L*  1EC 

1.  IPROlEtOP 

Mix  ALLOhABLE 

OPTIMUM  THICKNESS  * 

1 . POOOOE  tOl 

T»i;<  .ESS  FfR  “ATERIAl  RY  Alls 


* . 7 ii„F ♦ ' 3 
7 . *1  * "t ♦ ’ 

P . *N  4 • i' 


••>31>>E*n0 

>.*S*ntt(jr 


3 . 

3. 7>7Cf *00 
n. 


« 4 T F O 1 a . r‘,  ! S 1 

HATf  RJAL  c F S I 

h*  i » r ; a,  • " i i 1 


"hicknESS  for  face 
t»IC*NESS  F(jr  face 
•-ICKNESS  FOR  face 


oNt  * *.7ie  inc-es 

T«U  * *.?3P  INCHES 

T-“T£:  ?.RB»  INCHES 


• 4 _ L 4 ? / I I ‘ “ S us  . S „ 

“'SC  * * I *1  B J f 

C.  * ’ ra(b:«-»aTfrjal  »tRTICAL,A«lS  HORIZONTAL 
i l .SI  1.S1  .NR 

• ' * . >i  F.,  >i  l.NH 


f ',R  S , 1 1 1 1 PF  B-CE 

Th'  colt  is 

« 1 T - t F I •.  a i r i a ( 
F ■ iR  A lC  '•  I A-«A 


oamage  A',0  a fragility  pate  OFbn.n  G'S 
s.Sff  CELLARS  «ITh  a MULTIPLICATION  FACTOR  OF 
t’F  uj.ib  njLLARSFOR  OVER  SHIPPING 

•E  T“fc  COST  IS  R3.S0  JOLL*«S/ITEH 


l.OS  TIMES  OF'E 


. bTBtE tOO 
. 8 TtSEtOO 
•tBZSEtOO 
. STTRFtOU 


.RtSTEtnu 

.OOOOFfoj 

.OSObEtOQ 
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Tis  j.bnr«E*J'>  tp=  3.suonE»on  n*  3.Suope*oo  tti*  2.2bSOE*on  TT2*  2.2tsnE*oo  TT3*  2.BbB7E*oo 

Tlr  J , SlIUiiE  *1111  I f?  = S.5i,)0iiE*Ol.'  T.3*  3.bonnt*UO  TTI*  l.STSbEbOO  TT2*  1.57ShE>00  TT3*  1.7B?bE*00 

ThICkNESS  Fum  maTEmIAL  RY  *«IS 
•*.S7S5F»UJ  R.STSSEbOO  3.SR3srbfIU 

I.msk>E»>o  l.ssHAEsnn  l.s27PE*oo 

M6TFRTAL  CJl'E  « I TmIC*NESS  *0-  FACE  ONt  = H.57S  INCHES 

MATt»lAL  CO"E  * 1 ThI CKNE  S5  FU«  FATE  I«0  * '*.575  INCHES 

MATF»IAL  Lu  >t  S 1 Th  1 C»  NE  S5  Fum  face  T«kfEs  3. sab  INCHES 

TOT  AL  CUST/  1 TE  M:  f ?.Sm 

« I F Cu*- InPiiT 

CuST  "A  TR  I «-HA  Tl  - 1 AL  »tn T It AL . AX  1 S HORIZONTAL 

1 1 .**  I . . bb 

2 1.7b  l.Yh  . R? 

Flr  PU.hu  Pfc»-(t‘<T  DAMAGE  and  A FRAGILITY  RATE  OFhS.O  f.  * 5 

T nE  CIST  IS  87. mR  UULIAw5  a 1 1 « a MULTIPLICATION  FACTOR  OF  1.25  TIMES  ONE 
»iih  a final  comt  uf  ios.m?  culcarsfgr  u*e»  shipping 
Fur  AilD.InG  damage  Tnfc  COST  IS  S7.SR  DOLl AR S/ I TE m 


II*  3. 50i'DE*0rl  TJs  3.5u0nE«0C  T3*  3.SO<JOEblJO  TTI*  2.1222Eb00  TT2*  2.1222Eb00  T T 3*  2.78?7EbOO 

Tl*  3.S‘ll'UE»OU  T2*  3.5uODE*OU  T3*  3.5000tbOU  TTI*  1.2538Eb00  TT2*  1.2S38E*00  TT3*  1.57S0Et00 

minimum  THICKNESS  FOB  MATERIAL  8T  AXIS 

b. 57556*00  b. 5 7556*0(1  3.SB3SF*00 

l.sSH7f*<in  l.3587t*00  l.R272E*0tl 

MA1EMJAL  CODE  * 1 ImICfnESS  FOR  FACE  ONE  * s.575  INCHES 

MATERIAL  CODE  S 1 T.<  1C  a nf  s*  Fur  face  T«U  * b.S7S  INCHES 

MATERIAL  COTE  S 1 ThIC»NESS  * ? FAf  Three*  3.SR»  InChES 

TO  T Ai  Cv-ST-'I'EM*  87. RR 
MINC1 S-lNRjT 

Cost  "aTmIx-haTERIa  .EmTICal.axIS  hmo 1 2<)NT a i 
1 l.tb  l.»b  .«* 

e i.7b  i.7b  .H? 

FOR  vn.dD  PFR-EENl  DAMAGE  and  A FRAGILITY  RATE  0*70.0  G*S 

The  CIST  is  87. SR  OCCCARS  « I Th  A MULTIPLICATION  FACTOR  OF  5.00  TIMES  ONE 
m I t m a final  cost  of  ■* 3 s . s o dolcarsfur  over  shipping 
FUR  AlLOblNS  Damage  The  C05T  IS  102. S8  OOLCARS/ITEM 


OyFR  Shipping  Da i a 

The  OPTIMUM  COST  IS  81.01  DOLLARS 

The  FPAGlLlTr  R.TE  IS  15.0  &*' 

the  per-cent  damage  is  o.o 
The  milTIPlICATIJM  EACTCS  15  1.0 


The  optimum  ThICf'-EES  F"B  FACE  DM*  IS 
The  Optimum  THICKNESS  FOR  FACF  ThD  IS 
TmE  MPT1“um  TmJCaNESS  FOR  FACE  Three  IS 


3.010  INCHES  IF  MATERIAC  b IS  USED 
3.01U  INCHES  IF  MATERIAL  b IS  U3E0 
2 , S S **  INCHES  IF  MATERIAL  b IS  USEO 
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©DAMAGE  allowable  oata 

the  optimum  COST  is  mi.. 01  dollars 
the  fragility  rate  is  is.o  g • 3 

THE  PFR-CENT  DAMAGE  IS  0,0 

the  repair  cost/item  = o.no  dollars 

THE  0PTIMUH  thickness  for  face  one  is  ■ 

(3.4)  THE  OPTIMUM  thickness  for  face  TWO  is  : 

^ THE  OPTIMUM  THICKNESS  for  face  three  is 


3.010  INCHES  IF  MATERIAL  1 IS  USED 
3.010  INCHES  IF  MATERIAL  1 IS  USED 
a. SSI  INCHES  IF  MATERIAL  h IS  USED 


(3.5) overshipping  is  the  best  policy 


******K************4 


r*** **************** ************* 


TABLE  VIII 

SAMPLE  PROBLEM  NUMBER  FIVE 
INPUT  DATA  CARDS 


0 l 0 ^ 1^0/51  ( 0.>389u0n  ^5«r0  U.'  0.123P0 


72.  Oc t . n 


- 

X 

— 

6.C8> 

6*-  • 9 5 

i2a.6-  . t n 

• 1 39^26 . * 

t..8‘*.763l-*l  •594-9a,^3a8--4*H/596  -’ .0t628->.  19 
j j j ‘ j 

0.5 

0.5 

• « 

2. 

j 

3. 

J 

5.  3.  3.  3.  3 , . 

.J  J j 

0 1 u i l 0 

1.92 

0 • i a 

• 

l -22. 

0.10 

1.00  1.5 

j 

4 

5.40 

O.'s 

w • 

1 - 6 ll  . 

0.14 

1*50  2.0 

_ j 

2 

2*  1 6 

0 • a 

i,  • 

1 -34. 

J 

0.03 

J 

0.30  2*4 

J 

3 

l . 4 H 

0 • . a 

* • 

1 -6". 

1 

0.20 

J 

1.50  0.8 

4 

1*53 

0 • a 

1 • 

1 -4l  . 

0.03 

0.30  1.5 

1 J 

5 

l • 56 

0 • a 

r • 

1 - 2 0 . 

0 . 0 3 

0.50  3.0 

i ) 

6 

i.oo 

J • a 

• 

1 -20. 

0.02 

0.20  7.9 

j ) 

7 

1.00 

. . a 

V • 

1 -20  . 

0.  '3 

0.20  1.1 

, j 

8 

4.20 

0 . a 

■.  • r 

» -20. 

O.v  1 

0* l*  11.9 

i i 

9 

2*  1 ‘ 

o • . a 

n • ' 

1 -20. 

0. 02 

0 .B0  l l • 4 

1 

1 0 

.001/. 

0023- 

* i 

1 

oa,. 

12> 

12. 

i 2 * 4 

20. 

0 . o 

0 • 0 

6 0. 

a. 

a. 

65. 

20. 

10. 

70  . 

80. 

15. 

• 1 1 1 1 

I I I < 1 
1 1 1 1 1 


unit  nnnnnnnnnnnnnnnmnn  nnnnnnnnnnnnmnn 

> • i n n ti  n h it  u it  x it n ti  n n it  n n ti  n n a ii  u u h » ■ ii ■ » a « ui> u 4i « (i « n h » u u m u a ii  tt » n ii  u u h n ■ i) « n n ti  n n m n n )i  n n « 
1 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 !>;  1 1 1 1 1 1 1 1 1 1 1 1 1 ; i i 1 1 1 1 1 1 1 1 1 


im 

3 2 3 3 2 2 7 

2 2 2 2 3 3 

2222772 

222 

3 3 4 3 

3 3 3 3 3 3 3 

3 4 3 3 3 3 

3 3 3 3 3 4 3 

3 3 3 

4 4 4 4 

4 4 4 4 4 4 4 

4 4 4 4 4 4 

4444444 

444 

SSS3 

SS55SSS 

mm 

5 5 5 5 1 5 5 

SS3 

Mil 

mini 

min 

ICIIII 

III 

1777 

7 7 7 7 7 7 7 

7 7 7 7 7 7 

7 7 7 7 7 7 7 

7 7 7 

9 1111 

t 

mini 

1 1 1 II 1 1 

III 

® III! 

mini 

mm 

mini 

III 

i i 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 m hi m 1 1 m i i n 1 1 m 1 1 1 1 1 1 1 m i m m i m 1 1 1 1 1 
mmmmmmmimimmmmmmmimmimmimmiiiiiiiiim 

i i i < i • i i i m it  it  it  n it  ti  ii  m « » n » a it  a » it  a » a i.  tt  n m a .> » a a u « u u « « « « o <•  -mi  t«  u a a a *i  u » a ii « u it  u « it  u it  a n n n u n n ii  a ii  a 


2222222222222 

2 2 2 2 2 

2 2 2 2 2 2 

3333333333333 

3 3 3 3 3 

3 3 3 3 3 3 

1444444444444 

4 4 4 4 4 

4 4 4 4 4 4 

mmssssm 

5 5 3 3 3 

SSS5S5 

nnnnnni 

inn 

mm 

7,77777777777 

7 7 7 7 7 

7 7 7 7 7 7 

ii  iniiiiiin 

inn 

mm 

nnnnnni 

inn 

nnn 

• «*  OPTIMIZATION  PROCEDURE  FOR  OE  SIGN  OF  PACKAGE  CUSHIONING  ««• 


1 « ^ I C CGO£  no.  OF  CONTAjNEfi  MATERIAL  TO  BE  USEO 
? a n ---OPTIMIZATION  COOE 


l = I I T H -- 

en  * »ir  — - 

>t  S Hll  --- 
1 l t HC'MJ  — 

l.JNMUE-Ot  ($/LH) 

?s.oo  ( * ) 

.USnun  (IN.)  t: 

75.0P  ( F ) « 

??,nn  ( e ) x 


- item  number 

maximum  NO.  OF  iterations  FOR  DROP  MT.  CALC. 
NAAlwjM  so.  OF  ITERATIONS  FOR  G-CONVERGENCE 

- Nu*dtR  OF  Environmental  FREQUENCIES 
« CS  ---  COST  OF  Shipment 

Cl  — COST  OF  ITEM 

ten*,  ---  thickness  of  container 

IEHL  — LO*EM  ENVIRONMENT  TEMPERATURE 

temh  ---  highest  environment  temperature 


SAMPLE  PROBLEM  #5  (MULTIPLE  SINE 
EXCITATION)  CONSTANT  TEMPERATURE 


r UMJ(I)  ALL  of  ThF  ENVIRONMENTAL  FBEG. 

• ?8'piar«ui  o.amonE^llll  .?S*»bOEFO?3. 1«  l5KE»n?%.?S3nOEFO?1.08HSkEFO3  3.  l^iSSF^OB1*.  3S8?3Et0  3S.hSS«7Et03S,SbS0  3Et0  3b,2l3lS£A03 
Input  FuH  RANOOM  EXCITATION 

t,  »,  *,  *,  »,  •.  »,  »,  •»  *, 

j‘s>  * *oj(n  - environmental  e*citations  each  corresponding  tc  one  of  the  above  o*J(i)S 

. *jC?nOF-OlS.noJOnE-Ql  I.ouOOOEaqT?  ,nOO0i,,EA0P3.0n00PFFO0  3.0  0n00EF0  0 3,00000EA003.0O000EA0O3.00000Ef003.00000Ef00  3.00000EA00 


I s NC  — NUMBER  OF  CONTAINERS 
i r -meh  ---  ITE**  NtMrtEW 
JU  X HNMATS---  NU“MER  OF  MATERIALS  on  file 


' 3 ■ - 'AT 

CST-f Ah 

CST-PAK 

SL-Temp 

Lm-STRS 

Ml-STRS 

GAMMA 

i.*V  ( L 

s.noonf  -05 

l.noont-n? 

• 5000E ♦ 0 1 

1.0000E-01 

i.ooooe,oo 

1 . SOOOE  AO J 

S.bi/POE^Oc 

S.OOONE-OP 

i.0nP0E-v*8 

-b.ooonE^oi 

l .YOOOE-Ol 

l.sooaE.oo 

5.0000E A00 

e.  i boiiF ♦u. 

S..)00uE-<)? 

l.COtMlE-0? 

-S.bnonE^'Il 

3 ( 0000E-05 

j.ooooe-oi 

i, HOOOE  too 

1 .'bflOFtOu 

S.nnn>iE-n* 

1 • OPOOE-O? 

-b.OOOnEtOl 

P.0000E-01 

l.SOOOf ,00 

1 • 0900E-0 1 

J ,S“  ■» 

N«liCOr'£-P«? 

1 • C000E-0 1? 

-R.OOOnE^Ol 

3.000 0E-05 

J.OOOOE-Ol 

I.SOOOFaOU 

i . 

S.UCCr'E-0? 

1.00001- 0? 

-5.O000EF0) 

3.0000E-05 

s.ooooe-oi 

S.OOOOEtOO 

i . o-jniif  ♦uu 

s • n r.  o -T5 

ntinonf-oi? 

-z.oount  aoi 

? , 0 00  OE • 0? 

?.  00  001-01 

7.B000Etn0 

: . j^OOF  ♦:](’ 

S.o.juut-n* 

I.OOOOF-O? 

-5, OOOnE  *0 1 

3.O0Q0E-0? 

it  0000E-01 

I.IOOOE^OO 

« .<?  ’uue ♦dd 

i.noc«»f-o? 

-5.GQUr£«Q| 

l.OUOOE-O? 

1.SOOOE-U1 

I.IBOOEfOI 

? . 1 !PHF*Ou 

S.POOOfe-i)? 

l.OnoOE-O? 

OOOOE  *0 1 

5.000QE-C? 

R.0000E-01 

I , IIOOEaOI 

GAM  MA  CST-cn-iTATNER 

l.  Tf.fjOE  -0  3 5.350uf«P3 


1 * I T E M NJ-MI « 

S.OnnpE  ♦Olx^t  IuhT  f,F  ITEM  n](  PCUNOS  ) 

U*r.uuE«Jl*  -TIMF SCION  PARALLEL  to  x«a*IS  ?ND  LONGEST  DIMENSION  XL  (INCHES) 
l.?nOUE*Ol*  OlMtNbICN  PARALLEL  TJ  Y-AxlS  3R0  LONGEST  OIMENSION  YL  (INCHES) 
l.?nonEt*lI*  DIMENSION  PARALLEL  TO  Z-AXIS  LONGEST  OIMENJJION  ZL  (INCHES) 

S'  M9f  b s •* 

LOOES  CONSIOERfD  ARE  l»  «♦ , b,  10, 

MAx-G  PfM-OAM  wEPl  *C  E-CST 

a. oun(5F»c;i  •>. 

b. njouEt^i  A.oonoEtNO  5 • dopoefoo 

b.vJl)E*jl  tf  t.nooOE*Dl 

T,'uouE*Oi  b.runoEA  i i.S0'ji)E»ni 


'liwnyi'W *■  ,J"  W" 


(2.1) 


T 1 = 

3 . S u oil  E ♦ IU 

Ids 

3.  SuOnE  + on 

13  = 

s.snont+on 

1 Tl  = 

3.bn?sF»no 

TTd  = 

3.b07SEv00 

TT3  = 

3.b07SEt00 

Ti  = 

1 , S It  1 1 * ) t ♦ : . 1 

1 d = 

j.suooE+on 

13  = 

3, 5onne»on 

T T i = 

s.snn?E+oo 

T Td  = 

S.SODTEa’IO 

T T3  = 

B.S007EA00 

T i = 

3 , SOUuf  *00 

Yds 

s.5uooE»no 

T3  = 

s.snnnE+on 

TT1» 

3.1777E+00 

TTd* 

3.1777F+00 

TT3* 

3. 177 7E 300 

T1  = 

3 . S (HI II  t YULI 

i d = 

j.  siiooE  ♦no 

I 3 = 

3,S0UIIE»0P 

m = 

B.dlMHEfCU 

T Td* 

♦ .dBUBEvtlO 

T T 3 = 

B.dBOBEtOU 

Tis 

3 . S 1)  L!  U E ♦ IJ  0 

Td* 

3.Sul"'ttUCI 

T3« 

s.sonnE+oo 

T T 1 = 

d.zndlEtro 

TTd* 

d.70dlE*UU 

TT3* 

d.70dlEt0U 

Mini’ll  M IhICknESS  FOP 


. bd?bE+0  ’ 
. 8 Jbbf  ♦ '1  0 
.'ll  ISt  * 0 U 
.ibHTF  ♦ 10 
,H»3SE*  i'l 


material 
bd?bE»U0 
83bbE*00 
01  lBEtntl 
ib«3t>un 

sb  3se  Ann 


BY 


AXIS 

5.bd?bEA00 
b.P3bbE»nC 
b.oiisEtnu 
*■ . IbB  IF  AOC 
d.SB35EA()0 


HAUHJAL 

COI.E  = 

10 

thickness 

FUR 

FACE 

ONE  * 

d.BB3  INCHFS 

i2.3)  tem  i al 

cooe  = 

10 

THICKNESS 

FOR 

face 

TbU  * 

d.SKS  INCHES 

' MATbKl * L 

COOE  = 

10 

THICKNESS 

FOR 

FACE 

THREE* 

d.SS3  INCHFS 

total  C0S1/ITEMX  SB. Id 
Ml'  C 0 *!  - I N H u T 

CU3T  MATRIX-MATERIAL  VERTICAL, AXIS 


1 

.*0 

.sn 

? 

3.  1? 

3.1? 

3.  Id 

>♦ 

. 78 

. 78 

. Id 

b 

. ?Q 

. ?n 

. 70 

J 0 

.F? 

. Sd 

HORIZONTAL 


Fl'R  u . I 11  MEM-1  EM  CAMAGE  ANC  A FRAGILITY  MATE  OFdd.U  G'S 
The  COST  IS  SR. Id  COLLARS  hITh  a MULTIPLICATION  FACTOR  OF 

hITh  a final  Cist  of  SB. Id  PULLAPSFOR  OVER  SHIPPING 

FOP  i|  losing  OAMAI.E  The  cost  IS  SB. Id  OOLLARS/ITEM 


1.00  times  one 


T 1 = 

1.  ♦ 'in 

T d = 

3,suont‘nr 

i3=  s.sonnt+un 

TT1=  d.bblbt+OU 

T Td  = 

d.bblBE+OO 

TT  3 = 

d.bblbEtOO 

T 1 = 

J . b'UH-t  ♦0,‘ 

Id  = 

3.SuuuE»(*n 

t 3=  s.scnoEtnn 

TT1=  d.11S5E+00 

TTd* 

d.BlS5E+0U 

TT  3* 

d.BISSEtUU 

Tl  = 

3 . S<J •••)£♦  l'L* 

Td  = 

J.SliOUEtDO 

T3=  B.SOUOEaOO 

TT1=  «..3BBd£t00 

TTd* 

d.3BBdE+00 

T T 3 = 

d.3BBd£+00 

Tl  = 

J.SUuuF^OH 

T?  = 

3. 5nnnE*on 

T 3*  3.5OO0EA00 

TT1=  3.Bb00E400 

T Td  = 

3 . 8b  OOE  + 00 

TT3* 

3 • BbOOEtOU 

IJ- 

3 . SUUUE^im 

fd  = 

J.  SljDuEAOU 

13=  s.sPonEAan 

TT1=  d.3B53E+00 

TTd  = 

d.3BS3E*00 

TT  3 = 

d. 38S3EtOO 

MINIMUM  ThILkvESS  FOR  MATERIAL 

BY  AXIS 

3.idO*E*n« 

3 • 1 d 0 v -0 

3.1d0ME+n0 

3.bld5E»S 

3.b IdSE ♦00 

S.bldSE+OU 

3 . Od 1 3b  * iu 

3.odi Jt^nn 

3,ndl3E+10 

R.lRH3t»00 

S.  l»B3FtOO 

■>.  lbB3£  + 0U 

d.S»35F»0O 

d.SH  3SE  + '.I0 

d.RM35F*0U 

Mi’ 

FRTAL  CflOE  = 

*♦ 

T-ICKNt  SS 

FOR  FACE  ONE  * 

3.0dl  INCHES 

material  C 0 V E = 

Thickness 

FU»  FACE  T*Q  = 

3 , Od 1 INCHES 

material  LTJfc  = 

* 

thickness 

FUR  FACE  THREE* 

i.Odl  INCHES 

total  COST/ITF.ms  ST.Bb 
Mlncnr— input 

C l !» T “AT-I«-“1Tfm;ai  vertical,  a*I3  HORIZONTAL 


i 

.so 

.S.J 

. S(i 

<? 

i . R 3 

i . h i 

1 . H 

*♦ 

. 3M 

. Jb 

. 1* 

to 

. ?0 

. ?n 

. 

10 

.S.‘ 

.s? 

.s? 

for  s.ii'j  Rf. - -CL'.T  oamagE  anh  a fragility  rate  CFbn.n  r,*s 

T'..  C'ST  IS  Jf'LLAMS  Mil"  A -ULTImi.ICATION  FACTOR  OF  1.P5  T I HF  S ONE 
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»ir«  A final  cost  Of  bCl.bM  OtlLLAPAFiiP  UvER  SHIPPING 

f~r  »tLO«lNC.  t he  cost  is  b?.q»  i>oll ars/  I tem 


US  3.S.1iiu£aOO 

10  = 3.50O(tAOO 

13=  a.snooEAon 

IT1  = 

0.SS33EAOU 

TT0* 

0.5A33EAOO 

TT3* 

0.5333EAOO 

Tl  = 3.SUo'iE*0" 

T0  = 3 . snnoE  ♦nr< 

13=  s.snooiAon 

1 Tl  = 

0. 154BEA00 

TT0  = 

0.15A8E*OO 

TT  3= 

0.15A0EaOO 

T is  I.SUIJuEaU'I 

T 0 = 3.5ilOCE*no 

T3  = I.SOOOEaUO 

TT1* 

0 . 0MOOE  AUU 

TT0* 

0.0AOOEtOO 

TT3* 

0.0AOOE+OU 

1 1 = 3.SUi  UEFO'I 

1/=  J • SuPPE  *00 

U=  a.snootAOn 

T T I * 

3. 807 AE AOO 

TT0  = 

3.807AEA00 

T T 3* 

3.H07AE AOO 

11=  3.SniiOE»On 

TP*  3.Sunn£»00 

13=  3.50001400 

T T I * 

0.3A57EAOO 

TT0  = 

0. 3357EA00 

T T 3* 

0.3A57E»OO 

minimum  ThK«nCSS  FIR  HifEPiAi 

Ml  «»IS 

3.10OaEaO,) 

3. 10OAE  Aon 

3.ianAE*oo 

3 . » 1 05E  anu 

3.bl05t*no 

l.biPSEAno 

l.liinton 

3. Oil  3£«rui 

3.(iJI3F»nu 

h . Ink  35  ♦00 

h.lbP3E»l)0 

t>.  Ib83F*UU 

P.SYJSEtOO 

0.HA3«EAno 

?.MS3SE>P0 

M»  tep  I Ai  C OOE  = 

a thickness 

E UH  FACE  ONE  s 

3.001 

INCHES 

MATES  I »l  COPE  = 

* thickness 

FOR  FACE  T«0  = 

3.001 

INCHES 

-ATtPIAL  LODE  * 

a thickness 

FOP  FACE  THREE* 

3.001  INCHES 

' ’*L  CUST/ITE“=  S7.3A 
-INCuS-InPuI 

cost  -ATRI  (-MATERIAL  VERTICAL, AXIS  «09I20NT*l 


1 

.SO 

.SO 

.SO 

0 

1 .hi 

1 • b 3 

1 .b  3 

A 

. 3b 

. lb 

. 3b 

Ft 

. 70 

. 70 

. 7" 

10 

.S0 

.S0 

.S? 

FOP  011. oh  RER-CC'.T  n»H»Gt  ANO  A FRAGILITY  PATE  OFhS.O  G'S 

THE  COST  IS  S7.Ra  OOLLAkS  «ITh  . *UL T I PL  I C AT  I ON  EACTOP  OE  1.05  TIMES  ONE 

*ITh  4 FINAL  COST  OF  70.33  OOLLAPSEOP  Ov‘£P  SHIPPING 

FOP  ACLOhING  oamaGE  ThE  COST  IS  b7.RA  CIOLL APS/ I T EM 


T I = 3 . S 0n0t"  ♦ no 

10=  T.SlioaFAOO 

T 3 

= 3.soootAon 

TT1  = 

0 

.A05OEAOO 

T T0  = 

0.A0SOEAOO 

T T 3* 

0.R05OEAOO 

ri=  j.soooeaoo 

10=  3 • S"00E*00 

T * 

= 3.53P0EAO0 

T T 1 * 

1 

. 8SA0EAOD 

TT0» 

I.BRA0EAOO 

TT3« 

1.8RAJEA00 

Tl=  3.50ii0E»O0 

10=  3 . SOOOE  Ann 

r * 

= S.SPGoEaOO 

in* 

0 

•lasBEsoo 

TT0* 

0.1  3S8EAOO 

T T 3* 

0.1  3SBEaOO 

Tl=  3.S0u0t«00 

10=  a.SouoEAnrt 

T i 

= 3 . S'lOOt  a(10 

in* 

3 

•75A7EAOU 

TT0* 

3. 75A7EA00 

TT  3* 

3.75A7EA00 

T l = 3.S0UUEAU'- 

10=  S.SnontAOO 

T.l 

= a.snonEAon 

T T 1 = 

0 

. 30bIE+00 

T 10  = 

0.3OblEAQQ 

TT3* 

0.3O81EAOO 

-jM-i  m t«ickness  eoo  material 

Hr 

A*IS 

7.10JAtA'M 

3.10Oa£aOQ 

3.l0OAF*pn 

3.bl0SE-OO 

3.bl0SEAOO 

1.bl0SEAOO 

3 . 00 1 3f.  A O.t 

3.O013EAOO 

3.001  3EA0II 

b.  IbHJEAlV! 

b.lbB3EA0a 

b. IS83F «00 

0 . Sa  3SE  At'O 

0. Pa  3SE  aoo 

0.RA3SEAnU 

mate«IAl  C'JOE  = 

a thickness 

*op 

FACE  ONE  = 

3.001 

INCHES 

MATERIAL  code  = 

a thickness 

FOP 

FACE  ThU  = 

3.001 

INCHES 

maiehial  CODE  = 

a thickness 

f Op 

FACE  ThUFEs 

3.00 

• 

INCMFS 

ToTAl  CUS1/ITE'"; 

S 3.3a 

“I  NT  OS- INPUT 

COST  MA'PI«. MATERIAL  VERTICAL. 

-OR  I 0ONT  AL 

1 

.so 

• SO 

.SO 

t* 

1 . b 3 

1 ,b  3 

1 .b  3 

<♦ 

. 3b 

. 3b 

• 3b 

b 

. 70 

. 30 

. 7n 

1?.8 


10  .52  .52  .52 

FOR  80,00  PFP-CEM  DAMAGE  AMO  A FRAGILITY  RATE  0F70.0  G'S 

THE  COST  IS  57. 8*  DOLLARS  WITH  A MULTIPLICATION  FACTOR  OF  5.00  TIMES  ONE 
WITH  A FINAL  COST  OF  288. 7?  00LLAR3F0R  OVER  SHIPPING 
FOR  ALLOWING  OAMAGE  THE  COST  IS  72. 8*  DOLLARS/ ITEM 


OVER  SHIPPING  DATA 

THE  OPTIMUN  COST  IS  58.12  DOLLARS 

THE  FRAGILITY  RATE  IS  20.0  G'S 
THE  PER-CENT  DAMAGE  IS  0.0 
the  multiplication  factor  is  1.0 


the  optimum  thickness  for  face  one  is 
the  optimum  thickness  for  face  two  is 
the  optimum  thickness  for  face  three  is 


2.8*3  INCHES  IF  MATERIAL  10  IS  USED 
2.8*3  INCHES  IF  MATERIAL  10  IS  USED 
2.4*3  INCHES  IF  MATERIAL  10  IS  USED 


DAMAGF  allowable  data 

The  optimum  COST  IS  58.12  DOLLARS 

ThE  FRAGILITY  RATE  IS  2U.0  G'S 

The  PER-CENT  OAMAGE  IS  0.0 

ThF  REPAIR  COST/ ITEM  = 0.00  DOLLARS 


THE  Optimum  THICKNESS  FuR  FACE  ONE  IS 
THE  OPTIMUM  THICKNESS  FOR  FACE  TWO  IS 

the  uptimuh  thickness  for  face  three  t. 


; . 8*3  INCHES  IF  MATERIAL  10  IS  USED 
..8*3  INCHES  IF  MATERIAL  10  IS  USED 
2.8*3  INCHES  IF  MATERIAL  10  IS  USED 


3.5)ovERSHTPPING  IS  The  bfst  POLICY 


TABLE  IX 

SAMPLE  PROBLEM  NUMBER  SIX 
INPUT  DATA  CARDS 


& t*0* 


Card 

No. 

I. 


fees' 


* f p ***"  t c*  | 4 •-  *'rr  •"  pO  i*  *vv  a .*>  c p o a n J *>rr  p n ,«  a ,«*  r r>  * a .*  p (* 


2 

6 4 ^ 3 * 

64.03 

12  3.06  3 l 4 . 

1 

l39~2«.  3 

1 1 *•«  . 96  .M  **  . • 5 »4  ->96  . 

2 3 » 6 4.8/546 

•036283. in 

3 

4 

0 « n 

0 . 5 

1 • 2* 

i . 

3.  •».  3* 

3 . 1. 

* . 

t. 

OMIO 

: . 92 

U . " 3 

.1  -22. 

0 . 1 u 

1*00 

1 .5 

1 

7 

5.40 

0 . 3 

• 1 - 6 • 

0-14 

1.30 

2*0 

2 

8 

2 • 1 6 

0 • 3 

• i • 

0.-3 

0 • 30 

2*4 

3 

9 

l • 4 •* 

0 • . 3 

• l - to  • 

0.20 

1 .50 

0 • 8 

4 

10 

1 «3a 

0*3 

r . 1 - H i)  . 

0.  .'3 

0.30 

' .5 

5 

li 

1 . 3o 

0 • 3 

I • i . 

0 . .3 

U • 5 0 

3.0 

6 

12 

1.00 

0 . 3 

1 . 1 . 

0.-2 

0.20 

7.9 

7 

13 

1.00 

v . 3 

. 1 -20. 

0.  u3 

n . 20 

1 * 1 

tf 

14 

4.20 

0 . ' 3 

. . 1 -2'  . 

0.1 

0 • l 3 

M.9 

9 

’ 5 

2*  1 i 

0 > 3 

• 1 -2:  . 

0 . 0 2 

0.80 

1 r 

6 

• c u i / • 

U 23- 

17 

i 

10  0. 

1 2* 

* 2 • 

24 . 4 

18 

=>?»  • 

0 . .1 

0 • 4 

19 

to  0 • 

3 . 

3 . 

20 

to5. 

20  • 

1 0 

21 

;o . 

to  0 * 

15. 

i ii 

1 1 > 

1 1 1 

li? 

) ) 4 

444 

s s s 

lit 

17  7 

i 

9 1 ; i 

I 1 1 1 

iiit 


in 

1 1 1 

1 1 1 


ii  liniom 

1 ii  ii  i]  u ii  ii  i i i a ii 

1 II  1 1 1 11  1 I 1 


mm 

non 

4 4 4 4 4 4 

SSSSi  i 

mm 

mm 

mm 

mm 


in 

u n V Ii 

1 1 1 


1 0 1 1 ill  1 1 1 m I Ml  i III  i 1 1 1 ! 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

II  » II  ■ 11  U 11  U D H » M » II  <1 II  u U « |I  « <1  M II  It  U W H M t>  H it  H II  U It  M ■ ■ II  M M * II  I?  I)  M 

1 1 11  I 1 I 1 I 1 11 1 I I I I I * M 1 II  11  I 1 1 1 I I 11  1 I I I I 1 I I I I I ' 


liiiiiiiiiiiiniii  Hiniiinii 
ii  ii  i iii  im  min  mi  ii  i mi  i 


• i i i i ii  ii  ii  ii  m ii  « ii  ii  ii  n ii  n n m n ti  ti  ii  ii  • i.  u n m u a ii  mm  a «i  <i  I-  m <i  u ii  it  ••  -mi  ii  u m u k i;  it  n h ii  ii  n h ii  n ii  « ■ i ii  ii  n ii 


mi 

n n ii  ii  aa 
• ill 

111 

111 

4/4 

tit 

III 

111 

III 

19! 

n n ii  n ii  a 
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• 0«*T  1«1  JAT  ION  PROCEDURE  FOR  DESIGN  CF  P«C*AGF  CUSHIONING  • •* 


(1.0 


1 • NIC 
? • IC- 


— - CODE  NO.  UF  C ON T A 1 N£ b maTEMMl  to  be  uSFO 
-OPTIMIZATION  CODE 


1 

?C1 

5s 

1 1 


1 JtK  • 

*ic  — 

“ » i — 

“C*J  - 


J«JSRl'f-Ql  C»/W« 
?S.Oft  ( I ) * 

.1ZS03?  (IN.)  * 

u.ar  ( f ) • 

ItP.JP  ( F ) a 


- I T £ “ Nj-Hte 

-a i1«uh  no.  c»  iterations  fur  crop  ht.  calc. 

•*A«I“u"  so,  nr  2 T*  RAT  ICnS  » OB  G-CfNwfHGf  NCF 

- NU"SE»  OF  EN*  HCNHf  *,TiL  FREQUENCES 

* rs  ---  cost  ir  s-ip^ent 

Cl  — COST  or  1 Tf * 

TCCN  ---  T«J  C*NF IS  OF  CCNT*lNfB 

T|Hl  LOwfST  EN,l»0NMfNT  TfHPf  M A T UMf 

ffh  — * hKh£ST  f N*  T PON**E  NT  T E **pf  R A T uflf 


I SAMPLE  PROBLEM  #6  (MULTIPLE  SINE 
I EXCITATION)  VARYING  TEMPERATURE 


0*«l/S€C)  * U*J(1)  tu  OF  W f N*INCN«ENT*L  FRfG. 

• 21  J0Cf*uufc.?5JO0£*01l.^SNN0t*O?J.MlS^E*0?H.?l1OOE*0?l.*l*SbE*033.1'»lS^E*0  3F.3^l?H*0  3S.NS'H?f*0JS.SkS03Et0Jfc,?13lSEF03 


PSO  INPUT  FOR  HANOOH  £*CItATlON 

• ».  »,  •.  *.  *.  *.  •,  *.  *.  *, 

( G * S ) * <DJ(I)  - ENVIRONMENTAL  E*C1TAT1CNS  EACH  CORRESPONDING  ONE  OF  Th£  aBOvE  ONJ(I)S 
.ODOnpE-OlS.OOOOOE-Oll.OUOOOE aOO?. OPPOSE aOO 3,00  0 OOE *00  3.0000 OEaOO 3, OOOQOE AOO 3. OOOOOEaOO 3. OOOOOEaOCI.OOOGOEaO 0 3, 0 000 0E A 00 


i , sc  — number  of  containers 

1 a "ITt"  ---  * T£*  NU**BFR 
10  • ** NM I T S---  NUMBER  OF  «ATE*1ALS  ON  FJlE 


CST-haT 
l . *i?OTE*UO 

s.*oooe*ou 
2»U9  JF*UU 
1 , **00f  *0(J 
1.S«0"FaGO 
1 • 3 bP  Of  A GO 
l.O?v*n**0o 
l .OOPPf *00 
*.? G^FaPO 
*.U00E*00 


CST-F AB 
S.OOOOE-G? 
S.OOOOE-O? 
S.O"CO£-OC 
S.OOUCE-O? 
s.-toope-o* 
s.ooooe-o? 

S.OOO*E -o? 
S.OOOOE-O? 
§•00001-0? 
s.ooooe-o? 


CST-Pa« 

i.oooge-g? 

l.OOOOC-O? 

l.ooonc-o* 

l .OOOOE-O? 
1 .r<00?E-0? 
l.POOOF-O? 
1 .onpnF-o? 
l.POOOE-O? 

l .opopf -n? 

l.OOOOF-O? 


SL-Tf HP 
•?»  Z900E  aO  1 
-b.OSOOE AOl 
•3,A00rEAOl 

-R.OOOOEaOI 
•a.ooopEapi 
«?.ononE*oi 
•?.ororf aoi 

•?.0000€ aOI 
-f.OPOPf *01 
•z.ooooCaoi 


LM-3TR3 
i.OOOOF-Pl 
l.AOOOE-OI 
3 , OOOOF-OZ 
?,OOOOE-Ol 
3.0000F-0? 
3.0000F-0? 
Z.flOOOF  -0? 
3.0000E-0? 
1 . 00  OOF • 0 ? 
Z.OOOOE-O? 


M1-9TB8 
l. ooonE aoo 
l.SOOOE aOO 
3. OOOOE-O  1 
I.SOOCEaOO 
3 , 0*00E-0  1 
S.OOOOE-Ol 
?.OOOOE-Ol 
?, OOOOF • 0 1 
I.5000E-01 
•.OOOOE-Ol 


gamma 

l.SOOOEAOO 
?.OOOOEaOO 
l . a OOOE  aOO 
I, OOOOE-Ol 
l.SOOOEAOO 
3 . OOOOE  AGO 
>.ROOOEaOO 
1. 1 o o n e aoo 

I.IROOEaOI 

I.UOOEaOI 


G a ““  A 

1.  TOrf-13 


C ST-^CNT A ZNfW 
?. 3?G"E-9 3 


1 * I T E M Nu-Btft 

l,GOOOEAO?««f IG-T  CF  ITEM  -l(  »CuN03  ) 

1 .«*i?OOF*Ol«  0I-FN31CN  parallel  tr  i-a* 1 3 ?no  LONGEST  0 1 m£ ns  1 On  «l  (INCHES) 
l.?OOOCAOl«  C I "F n3 I ?N  PARALLEL  TO  t-aijs  3R0  CONCEIT  0I-EN3I0N  yl  (IN'mES) 
?.*HOOEAOl«  OImEnSIPn  parallel  TO  2-AI13  LONGEST  OIMENSION  U (INCmES) 
NuMBfR  « * 


"ATfRlAL  COOES  CONSIDERED  ARE  1.  *.  a,  10, 


MAfG 

S. SOOOEaOI 
b.roooE*oi 
b.SOOOE*Ol 

T. OOOOEaOI 


PCNT-OAM  RFPuACE-CST 


c. 

S.OOOOEauO 
?.0C0?Fau1 
I*  OOOOF  *01 


0. 

S.OOOOf AOO 
1.00*9! API 
1.SCC0CA01 
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T 1 = 

3.suunE*on 

■ • * 1 

T?« 

J.suooE^nn 

Tl*  3.S0n0E*0P 

• • < • 1 

T T 1 = 

?.ssnsE*on 

T T ? * 

?.ssosE*on 

TT  3* 

3. 030 bE *00 

l TU 

i.SOUOE^OO 

T t*  * 

3.SnniiE*Pn 

T 3*  3.%000t*00 

Ml* 

7.7311E+00 

T T?  e 

7.731 1E*00 

T T 3* 

?.?0S3E*00 

M* 

3, SOOQE*03 

T?* 

B.SlJOOE^no 

T 3*  3.S003E*00 

TTle 

?.15hRE*00 

T T? e 

?.lSbRE*00 

T T 3* 

7 r 0RR1E *0 0 

Ti* 

3.S0UOE*0O 

T 7* 

3.SJOOE*33 

T 3 ■ 3.S3p«F-0n 

TTI  * 

7.1StlE*00 

T T 7 s 

7. 1S1 1E*30 

T T 3* 

?.b?*lE*0O 

ShOC" 

thickness  is  larger  than  vibration  thickness 

T«ICKSE^3  = 

7.fc?*it*nr 

or t i ■* jm  vibhation  thickness* 

3.71B7L-0? 

.MATfcRTAL  « IS  JUNG 

DELETEO 

) minimum  thickness  eg»  material 

BT  AKIS 

3. 1JBSE*00 

3. 10  8SE*30 

3.bSbSE*00 

3.SR87E*C0 

3.srr:e*oo 

3.*SS3E*00 

3.  miRBF  *00 

3.0l>RRF*00 

3F*no 

7,  R 377F *03 

7 . R 3??F  *oo 

7.b?*lF*00 

• • • 

Tie 

3. 30UOE*03 

* * • 1 

T^s 

3.5'iri0E*3r 

T3s  3.SnoOE*OP 

• • • * i 

T T 1 r 

7. 30MlE*no 

T T ? e 

7 • 30bQE*30 

T T 3* 

7.8R?0E*OO 

TU 

3, SU00E*03 

T?s 

3.SU30F*30 

T3*  3 . SOOOE  *00 

TTle 

l»b?30E*00 

IT?* 

1 ,b733F.*O0 

T T 3* 

1.8*77F*00 

f.9UU0E*00 

’ 7 * 

3 . S LI  3 C E ♦ 3 n 

T 3 * 3.S000E*O3 

TTI. 

?.n?8*F*00 

TT?* 

?.3?8*E*00 

T T 3* 

e . o l bOE  *00 

*i  A T t >3 

:al  j is  being 

DElE  TEO 

CP  T T * 

„m  ThJlknESS 

s 

1 • 3?R01E*07  ha*  ALLOWABLE 

OPTI“UM  THICKNESS  e 

1 • 7 OOOOEtO 1 

HIM 

hjm  thickness  for  material 

B»  Axis 

*. 731bE*00 

». 731bE*30 

3.RB3RE+00 

7.*S*3E*03 

7.*S*3E*33 

l.7?70E*00 

P.  T?B**E400 

• * *1 

3. 

n. 

• * • • 1 

Tl*  3.SOtJ0E*0O 
Tl*  3.SQ'J0E*C0 

ti*-*.os7be*oo 
Tl*  l.bSSbF*OC 
Tl*-*.OS78E*Oa 
Tl*-*.0S78E*00 
T1*-».3S7BE*00 
Tl*  l.bSSbE*03 
Ti*-».0S7BE*00 
M*-*.OS?8E*00 
T1*-».0S78E*00 
f 1 * l,beS'-F*00 
M*-«.0S7BE*00 
T1*-*.OS7BE*00 
Ti*-».0S78E*30 
Tie  1 . bSSbE *00 
i l*-» ,aS7BE*00 
TI*-».0S78E*00 
Tl*-».OS7BE*O0 
Tle  l.bS$bE*03 
Tl*-*.OS78£*on 


T ?e  3.SliOOE*nn 
T 7 e 3.8u"PE«nn 
T?*»*.aS78E*00 
T 7 * • * . 0 8 7 8 f * 3 n 
T?*  l.b8SbE»00 
T?*-».ns78F  *30 
T7* •* . 08  7 8E*0  0 
T?s-*,3S7RE*P0 
T7*  l.bSSbE*00 
T?*-*.OS7BE*r;0 
T?*-*.OS78E*00 
T7*-».ns?9F*P3 
T?e  l.hSSbE*30 
T?*-».ilS7BE*'’n 
T?=-».0S7BE*30 
T7e-».nS78E*m 
T?  = I.bSSbE*3" 
T?e-*.0S7BE*O0 
T?e-*.0S7BF*0P 
T?*-».0S78F*0C 
T 8 * l.bSSbE*00 


CAN  SOT  DETERMINE  Thickness  for 
“ I M MUM  T«IC8SESS  FC»  MATERIAL 
* . S 7S  lF  ♦ 00  *.57S9E*30 

n.  o. 


! 3.snonE*pn 
3.  soonF.*on 
1. 3B8nE*00 
1 . 38RnE*on 
1. 3RRat*00 
?.0»R7E*0P 
1.388t)E*00 
1.3RROt*03 
1.  3R80F.«00 
?.0»«7t«00 
1.  3R80E*00 
l . 38BOt*0P 
1.38R0E*30 
?.0»R7E*U3 
1. 38H0E*03 
i . asanE^nn 
1.38B3E*00 
?.n»R7F.*nn 
1 . 3880F.*OP 
1 . 3R83E*00 
1 . 3880E*00 
HOT.  C»lCu 

<IS 

3.RR  3RF  *00 

o. 


T T 1 » 1. 
TTI*-*. 
Mir  1. 
T M = -*  . 
TTI *-»  . 
TTl*-». 
TU*  1. 
TU*.*. 
TTl*-». 
TTi*-*. 
TMe  1. 
Tlie-*. 
TTi e.»  . 
TTle-*. 
TTI*  1. 
TTI*-*, 
TTle-*. 
T T 1 s . * . 
TTi*  1. 
TTle-*. 
TTI*-*. 
LAU0NS 


rri»e*oo 
nS7RF*00 
HS  S b F *30 
0S7BF  *30 
0S78F  *no 
0S78E*00 
bSSbE *00 
0S78E  *n0 
0S78E*00 
aS7BE*00 
bSSbE  *00 
OS78E*00 
0S78E  ♦’Mi 
0 9 78E  *00 
b88bE  *00 
ns78E*on 
397BE*00 
3S78E  *00 
bSSbF  *qo 
097BF*00 
n97BE*00 
MATERIAL 


TT7*  1 
TT?*-» 
TT?*-» 
TT?*  1 
T T 7 *-* 
FT?*-* 
TT?*-» 
TT?*  1 
TT?*-* 
TT?*.* 
TT?*-» 
U7*  1 
TT?*-* 
T T ? *•  * 
TT?*.» 
TT?e  1 
TT?*-» 
TT?*-» 
TT?*-» 
T T ? * l 
TT?*-» 
CnDE  * 


. aai»E*rin 
. 097BE*00 

• 05  78E*00 
• b99bE*0Q 
. OS  78E*QO 
« OS  78E*00 
. 0 S 78E  *00 
.bS9bE*00 
.097BE+00 
,0978E*00 

• 0S7BE+3O 
.b9SbE*30 

• 0978E*0P 
.OS78E*llO 
. 097BE*00 
. b89bE*00 
. 09  78E*00 
,0978E*00 
,097BE*00 
. b99bE*00 
. 09  7 8E  + 00 

7 THIS 


T T 3*  ?. 
TT3*  1. 
T T 3*  1. 
T T 3*  1. 
T T 3*  7. 
T T 3*  1. 
TT3*  1. 
T T 3*  1. 
TT  3*  7. 
T T 3*  1. 
T T 3*  1. 
TT  3*  1. 
TT3*  ?. 
T T 3*  1. 
T T 3*  1. 
T T 3*  1. 
T T 3*  ?. 
T T 3*  1. 
TT3*  1. 
T T 3 * 1. 
I T T 3*  ?. 
MATERIAL 


713bE*00 
388  .r*00 
3880E*00 
3880F*0D 
D*R7F.*00 
3880F*  00 
3880EAO0 
3880E*00 
0»R7E*00 
3880E* JO 
3880E*00 
3880E*00 
o»*7F*cr. 
38R0E*00 
3B80E+0C 
3880E*r0 
0»R7E*03 
3BROE*00 
3880E*o0 
3B80F  *00 
0*R7E*00 
OEIETEO 


T nicer. ESS  FGR  FACE  OSf  e 
Thickness  f3»  FACE  TkO  e 


7 , Rb  8 INCHES 
7 , Rb  B ISC“FS 


»TFWI»L  COOF  a 


1 THICKNESS  « l’W  r KFF  = 


).mhi  inches 


TOTAL  COST/ITEMa  IPO. 8? 

mincos-Input 

' COST  MATRIX-MATERIAL  vERTICAL#AxIS  mUR  I ZON  I AL 
1 ?.NS  ?.SS  .b» 

FOR  O.ut)  PEH-CtM  DAMAGE  ANO  * FRAGILITY  RATE  OFSF.O  G'S 
2.  5l  t«f  COSY  IS  1UO.H?  DOLLARS  «IT«  A mul T IP|  I C A T I ON  FACTOR  CF  1.00  IISES  ONE 
v-  xIT.  A FINAL  COST  OF  lliP.H?  00LLAH9F0R  OvEB  SHIPPING 

FOP  »LLU«INC  DAMAGE  The  COST  IS  100.8?  DOLLARS/ I TEH 


n=  s.sncoEYon  t?s  3.smioE*nn  t = i.soont«nn  ttjs  ?.sn?tiE«nn  tt?s  g.snJBEAon  TT3»  g.ssszEAOO 
minimum  thickness  fop  material  hy  asis 

*.STSSE*00  Y.S?SSF*nn  l.«83PF*00 


u*  3.souoe*oo  t?s  3.SunoE«nn  t is  3.snnnL*on  T t i * ?.isioE«no  tt?i  g.isinE-oo  TT3«  ?.fsbsE»oo 

material  1 IS  BEING  OELETEO 
NO  TEMPERATURE  OvE»LAP 
MINIMUM  THICKNESS  FOR  material  BY  Ai is 

».S?SSE*00  t.STSSEAUO  ?.TRB»F»t)D 

ALL  MATERIALS  OELETEO  ---  NO  OVERLAP  HETrEEN  T E MPE R A TURE S-OPT I M I ?E  ON  OATA  ACCUMULATED 


oyer  shipping  oata 

the  OPTIMUM  COST  IS  100. b?  oollaps 
The  FRAGILITY  rate  IS  SS.0  G'S 
The  PFH-CEnT  OARAGE  is  o.n 
The  multiplication  FACTOR  IS  1.0 


the  optimum  thickness  tor  face  one  is 
the  optimum  thickness  for  face  t»o  is 

The  OPTIMUM  TmICKNESS  FQR  FACE  TmREE  IS 


T.RbB  INCHES  IF  MATERIAL  1 
T.RfeB  INCHFS  IF  material  1 
3 . R 8 s INCHES  IF  MATERIAL 


IS  USEO 
IS  USED 
1 IS  USEO 


OAMAGE  ALLOKABLE  oata 
3 3)  The  OPTIMUM  COST  IS  100.8?  COLLARS 
v — THE  FRAGILITY  RAIF  IS  ss.o  G'S 
Thf  per-cent  o am  age  is  O.n 
the  RFPAIR  COST/ITEM  s 0.00  COLLARS 

The  OPTIMUM  THICKNESS  FOR  FACE  ONE  IS  T.RbB  INCHES  IF  MATERIAL  1 IS  USEO 

(3.4)  The  OPTIMUM  THICKNESS  FOR  face  T«C  IS  T.RbB  INCHES  IF  "ATERIAL  1 IS  USEO 

v— ' The  optimum  THICKNESS  FOR  FACE  THREE  IS  3.RR»  INCHES  IF  MATERIAL  1 IS  USEO 


ft), 


OVERSHIPPING  IS  ThE  REST  POLICY 


TABLE  X 

SAMPLE  PROBLEM  NUMBER  SEVEN 
INPUT  DATA  CARDS 

Card 

No. 


1 

0 l 

*0  /5  i in.  >3a9U!.  - <i3. 

1 a 

0 .129 

a 

0 

! / 2 . 0 

7 > • 0 

? 

o . a i 

6 2 • 6 3 129.66  >14. 

1 9962a. > l o 

84  . 

46  J 1 i .5  »4 jVU 

• 239a  4»d/5->6  .0>o28'. 

-i 

4 

' .r 

0.9  1 

. 2. 

> . y • 

>.  >. 

<».  3.  9. 

s 

o t r * 

' • <5/ 

0 • . 9 " . 

1 -22. 

0 « i 0 

1.00 

1 .5 

i 

1 

5 • *<  0 

0.9  . 

1 " 6 4 1 

0.14 

1.50 

2. 0 

2 

R 

<.’•16 

1 

0 . » 6 . . 

1 -M* 

0 . 3 

0.30 

2.4 

3 

q 

• 4 4 

0.9  • 

1 - 6 C . 

0.20 

1 >50 

0 . 8 

4 

10 

l • SB 

0.9  ... 

1 -40  . 

0.3 

0.30 

1*5 

9 

1 ! 

1 • 3 6 

0*9  ' . 

1 -2  . 

0.03 

0.50 

3*0 

b 

12 

l • 0 0 

. . 9 . 

i -20  . 

0 . > 2 

0.20 

7*9 

7 

13 

I • 00 

; . 9 

1 - 2 i . 

0.03 

0.20 

1 . 1 

8 

14 

4.20 

0.9  1 . 

1 -2.  . 

O.i-l 

U . | 9 

11.9 

9 

15 

2.11 

0 . ■ 9 

1 -2  . 

0.1-2 

U .80 

1 1 . 1 

1 0 

16 

• C 0 l / • 

(H-2  3’ 

17 

» 

l 

10  0. 

12. 

12. 

24 

. 4 

18 

30. 

0 . C 

0 . 

19 

6 0 . 

9. 

9 . 

20 

6 5* 

2 0 • 

1 0 . 

21 

1 

/0  • 

60  • 

15. 

iim 

1 1 1 1 1 
1MII 

iminin 

1 1 1 1 II  II  1.'  11  U II 

II 1 II II 1 1 1 

imomi 

ii  n il  il  n ii  ii  it  n 

1 II 1 1 2 1 1 1 

in 

X I 

1 1 1 

mn 

minim 

111 

171711 

111 

mi! 

in  m i*n 

111 

1111*1 

1 1 1 

4 4 4 4 4 

4444444444 

444 

4 4 4 4 4 4 

444 

illS! 

smmm 

s ; s 

min 

1 1 1 

mil 

nmnm 

III 

cnn 

III 

inn 

iiiiiimi 

1 1 1 

min 

1 1 1 

mn 

miiMin 

111 

mill 

III 

Mill 

nmnm 

III 

mm 

III 

I I I ) I I I I ) II  II  II  >1  H II 


(!  Ml  Ml  M 130  IIS  Ml  III  1 1 1 1 1 1 1 1 III  I III  III  I 

s i il  .1  n • ii  i:  u a x r » i!  u •'  u ii  u u ■ ii  n ii  M )i  u u M » h ■!  M M ■ ii  a u h u ■ it  ■ ■ 

II U I 111  111  1 I I II  I I I I I III  I M I I I I I I I I I I I I I 


iimmmm 
inniiiiiini 

<4444444444414 
iiiSiliSSiilii 

mini  mini 
liiimniini 
mmmmmiiimmmmimm 
immiimimmimmimimm 


n n ;i  n x 
I 


ii  n il n n n n m n n n n n a i.  nu  m n n it  ii n a ii  u ii  ii  a « ii  ii ii  u u w h y imi  » h ii  ii  u m u ■ ii  ■ m n n n n h n n ii  n n 
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• ••  optimization.  *»OCEO 


' rOR  0E3IGN  CP  PACKAGE  C “ 'lONlNG 


• * • 


SIC 

IC- 


— cone,  so.  op  container  material  to  be  useo 
•Optimization  code 


* ■ 1 IT-  •••  I T E - Nl-BER 

e-»  » -ii  — -Afi-jM  no,  of  iterations  for  omop  mT.  calc. 

>S  1 »>  ...  «AiI">-  so,  f'F  1 • ERA  T Ii<nS  FOR  r.-CONvl«GENCE 

*i  ■ -r  ; •••  number  of  environmental  frequencies 

J.3N«U1F-j1  l/i*)  * C'  — COST  CF  Sm  1 P-t  n T 

?S.OO  ( A ) a Cl  ---  COST  OF  P£M 
.iPSOiin  (is.)  ■ ICO*  — TmIC«NESS  CF  CO-TAlNfR 

T?.f»0  i ► ) ■ T£ml  — lOmEST  ENVIRONMENT  TEHPERATuRE 

>1.00  ( > ) ■ TE*h  highest  ENVlfluN-tNT  T*r  *'UgRt 


SAMPLE  PROBLEM  #7  (MIL-STD  810B 
EXCITATION)  CONSTANT  TEMPERATURE 


IwAwJt  ) * U“J<IT  ALL  OF  T m£  ENviMON-tsTAL  FRIO. 

?M)Ctif  ♦t)iJ*.f*U3QE*OlX.?SfckOEAiT?3.XMS*EAO?k.?l3O0EA0?l.ll,»RktA013.XNXSREA03».  3M?3EA03S.NS*mA0  3S.SH03EA0  3fc.?l3XUA03 


PSC  InPuT  FOR  RanOO-  EICHaTICN 

•.  *.  •.  •.  ••  •.  ••  *.  •. 

ht'S,  A luj(  I ) - ENv ImOnmenTal  E *C 1 T A t ICnS  each  CORHt SPONOlNG  TO  ONE  OF  Tm£  ABOVE  0-J(l)S 

uoonpf «0 IS. OOCJOE •Oil. Oun0Ot«OO?.OOflOME *00 3. 00000 1 TOO  1.0 0000 E *00 3. 0000 OEaO 03. OCOOOE *00 3.00 OOOEAOO 3. OOOOOE 4003, OCOOOE *00 


i a sc  •••  number  of  containers 
J 3 -me*  ITE-  N„-8ER 

10  a MNMATS---  NuRflER  uF  MATERIALS  ON  FILE 


CST.rat 

I.  * ? •”  Of*  0 U 
S.<*0CDF*0  I 
?.  ♦ TJ 

i .«'MinE*ou 

1 , SI^Op  «0i) 

l . Tboof *n« 
i.ftomrt'iu 
i .uoruF  ♦ ju 
*.?000f ACu 
?.iiCOE#0'J 


CST-Fab 

S.OCOOE-O? 

s.oo«me-o«? 

S.OOOCE-Q? 
S.UOOOE-O? 
A . Oil  JOt -0  ? 

S. ooooe-o? 
A.nnooc-n? 
S.OOUOE-O? 
5 .OOUOE-Oi1 
S. OOOOE-O? 


CST-MAA 

1.00noE-0? 
X. OOOOE-O? 
X .OOOOE-O? 

x.ooncE-o? 

i. OOOOE-O? 
l .OOOOE-O? 

x. ooooe-o? 

1 .OGOOE-O? 
x .ooonE-n? 
i .oonnE-o? 


AL-  T £ mp 
-?.?OOOE*OX 
•M.OOOOEaMI 
-X.aOOOEaOI 
•N.OOOOEaOX 
--.nonof #oi 
-?. oooniAOx 
-?. oOunE*ni 
-?. OOOOEAOi 
•? . OOOOE  *01 
-?.ooopeaox 


LM-STHS 

i.ooooe-ox 
X.*000f -OX 
3. ooooe-o? 

?. 00 00 E-OX 
3. OOOOE-O? 
>. OOOOE-O? 
?. OOOOE-O? 
1. OOOOE-O? 

i.oonoE-o? 

?.ononE-o? 


- l-STRS 
1 . 0 000E ♦ 00 
X.SOOOEaOO 
3. OOOOE-O  X 
X.SOOOEaOO 
j.oonot-ux 
S . OOOOE-O  X 
?.OOOOE-OX 
? .OOOOE-O 1 
X . SOOOE-O 1 

i.ooooe-ox 


GARRA 

X.SOOOEaOO 

?.ooooeaoo 

? . NOOOE  *00 
I.OOOOE-OX 
X.SOOOEaOO 
3. OOOOE  *00 

>.«oooe  #on 
X.XOOOEaOO 
X. XNOOEaOX 
X.XXOOEAOX 


gamma 

i.  jcipde-o  ? 


C ST -CONTAINER 
?.  i?OOE-n  T 


i ■ I te-  number 

|.noOOk*3?»MEltoMT  OF  ITEM  ni(  POunOS  ) 

i.tPOOt’Pla  DI-ENSICN  PARALLEL  TO  *-A«I3  ?ND  LONGEST  OI-ENSION  «l  (INC-E3) 
i.?0l)UE*01*  CIRENSIPN  PARALLEL  TO  r-A«i3  3«0  LONGEST  OI-ENSION  tl  (INCHES) 
P.-p-JOE  a-jX*  0*  me  ns  ion  Parallel  to  Z*a«is  longest  CIMEN3I0N  ZL  (INCHES) 

Nij-UFR  * * 

MAUPIAL  CC.1ER  CCNSIOtBEC  ARE  l , ?,  *,  10, 


a.«3o  t*n 
N.fJC0Ufe*O| 
t> . 3'IoEa'jI 
T.niuuE*Ol 


PCST-DA 

S.-030EA(j0 
?.»  0'IOE*UX 
H . CO  "OF  A'Jl 


1 REPLACE-C3T 

0. 

S.OOPOFAOO 
X.con0E*0X 
X. SOP DE-OX 
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A ' ^ j,s 

i es 

3. So THE *00 

r 3* 

F.SOOOEtOO 

T T 1 * 

8.SSOSEtOO 

TT8* 

8,SS05Et0O 

T T 3* 

3.030b Ft 00 

y Us  I.snpjt  *'J'i 

T?  = 

3.  suOi'E  ten 

t 3 = 

3.soooe*i;o 

T T 1 * 

8,8311C*00 

TT8* 

8.8311E*00 

T T 3* 

8.80S0E*00 

■ A 3 J . S u u 0 i ♦ 0 ) 

T/>S 

3.Su0nE*nr. 

T 3* 

i.snonttoo 

T T 1 * 

8 . 1 SbREtOO 

TT8* 

8. ISbREtOO 

T T 3* 

8 .0  RR1E  tOO 

M*  J « St«U*i£  ♦til* 

!<>s 

3 . SuOuF  *no 

T 3* 

i.si’onEton 

T T 1 * 

8.1S11F*00 

f T8* 

8.1S11E*00 

T T 3* 

8.b8tlE*00 

SHUO  th I l k nF  SK  Is  LARGER  Than  *IdBAT10N  THICKNESS 
S " J C ' l«KKSf,S=  8.b8»lE*0Q  u°  T i MoM  KlRRATlGN  THICKNESS*  3.81H?t-08 


f2)' 


h i • i h : * i. 
h ; n i '<  * 


* Is  HEING  OILlTEO 
ThIOmFss  F OR  MAIEHIAL 


i l u h s r ♦ 0 G 

3.S<»K»E*00 

3.  Tlitsf  Fl.l 


3.  ii>rsf  *10 

3.SN87E  *00 
3.  lihRPttPO 
8.R388F*00 


Hi  **1S 

3.hSSSE«no 
3.*SS0f  *00 
8. rr* j£«oa 
8.h8*iF«on 


"ilfBIiL  CODE  = 

-l,'Rt  L t 0 0 £ * 
- 4 T f R t . „ . vi . E * 


» thickness 
* thickness 
» Thickness 


Kjh  FACE  one  i 
*0h  FACE  t«u  r 
•g»  FACE  Thh££i 


1.010  inches 

3.010  INCHES 
8.RR*  INCHES 


- COST/ 1 TEH*  8 1,01 

■ . ,'S-Inh.  * 

;s  -*TSI«-H4T£H’4C  »EBTIC*L, ‘*1S  HORIZONTAL 
. . RR  , SS  , SS 

* 3.8*  3.8*  l.SS 

* .18  .78  ,3b 


*■  >R  J.UO  Ht«-CtNT  DA-aGE  ANU  A FRAGILI T*  HATE  OFSS.O  0'S 
1.2.5)  T"E  C"ST  IS  81.01  DOLLARS  »ITh  a hoi  TIHlICATION  factor  OF  l.oo  TIMES  one 
V -pH  i FINAL  COST  OF  81.01  n'lLLAWSFOR  OvEH  SHIPPING 

flh  *t  LU«lN>.  DAMAGE  The  COST  is  81.01  DOLLARS/ 1 TEH 


Ti*  J.S-’jl't*'.  ' 

Ti*  j. s . ( u 1 1 e * ' • o 

' . * 3 . S DR  t • L r- 


T 8 * i.S'|HT>E*D'. 
T 8 * 3. SuOLE* 00 
T8*  3 . Su ')[)£  ♦ Oo 


T 3 * 3.Snnnt«0n 
T 3*  3.sranE*or! 
T 3*  3,Snofic*on 


TT1*  8.*078E*00 
TT1*  1 . S053E*00 
T’l*  8.081  FtE*'in 


TT8*  8.*07BE*00 
TT8*  1 . ROS  3E*00 
TT8*  8.0816E*0n 


TT3*  8.R*R7E*00 
T T 3*  8 , OOOOE  tOO 
TT3*  E.OSOFEtOO 


“A  f£C  ; Al  3 IS  Ht  ISO  ;.£Lf  TcO 

q w r i h . • h I c * <ESS  * I . 38RD1E  *08  allOkAPLE  OPTIMUM  THICKNESS  * 1.80000EF01 


“INI"  * T"ICKNtSS 

FOR  haTef.al 

Hr 

• * IS 

*.  > 31b".  • '? 

*.  7 Uhttoo 

J.SSJREf'U 

7 . » S * n £ t n 

7 . » s * 1 1 E ♦ n o 

t.  78  7nEtnn 

r.r  - 1 8t  • ■■ 

■i  m 

n. 

“ ■■ T £ 1 * . l e : t = 

1 'HIC*N£SS 

F06 

FACE  ONt  * 

inches 

-tTFHIAt  Lr.'t  s 

i thickness 

f Oh 

FACt  T»u  * 

•*. 

inches 

* T f c I » o { ;■>  * 

i thjc«ness 

(■  >)m 

FACE  T— El* 

3. 

inches 

• T 1 L ..  5 : ! I 1 F.  ■<  S 

3 8 . S o 

“ ’ nc  is- ; •<».  t 

L . ; 1 F-4  ;s  [ I -"A  *F  B 

T A . .'  £ - T I r A L , 

AXIS 

h(jhI/*NTAL 

i 1 .SI 

1 .SI 

h* 

s.  ? i 

•>.71  I . 

b h 

► JH  S.U'J  -fc”U 

, T OAHFi'.F  *n> 

A FHAblLITt  HATE 

OF  bn  . n 

G 1 S 

thl  cost  is  8- 

» . S >>  v UAHS 

•I  I" 

» “OL  T I PU  CATION  factor  of 

».  '•<  A F I'.AL  COST 

OF  3 3,1b 

Cull  A MSP  f « *J  v K 

Shirring 

FLH  A 1 c o « I N u 'AHA 

U T h £ c.  ST  : 

s 

H 3. S l OOLLA 

hS/ITEH 

l.OS  TIMES  ONE 
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T 1=  3.S0U0E8U0  TP*  3.SU00E800  r3*  S.SonnttQO  TTi*  8.8bS0E8(10  TT8*  8,8b50E»00  TT3*  8.8M7E8U0 

11*  3.5000E*00  T8*  3.SO00E*00  T3*  3.5000t800  TTi*  i.S78bE*00  TTi*  i.S?8bE800  T13*  1.787bE»00 

MINIMUM  THICKNESS  FOR  MATERIAL  BY  AXIS 

8.S7S5E800  8.S7S5E800  3.8838E800 

1.8SB7E800  1.8S87E800  l.*87?E<00 

material  coot  « i thickness  for  mce  one  * x.szs  inches 

HA  TER  I *L  CODE  * 1 THICKNESS  FOR  FACE  TmO  « 8.S7S  INCHES 

MATERIAL  CODE  * 1 THICKNESS  FOR  FACE  THREE*  3.888  INCHES 

TOTAL  COST/ITtMa  87.88 
HINCOS-lNPUl 

COS1  MATRIX-MATERIAL  VER T I C AL , AX  IS  HORIZONTAL 

1 1.8b  i.8b  . b 4 

2 1.7b  1.7b  .87 

FOR  80.00  PER-CENT  OAMAGE  ANO  A FRAGILITY  RATE  OFbS.O  G'S 

The  COST  IS  17.88  OOLLARS  KITH  A MULTIPLICATION  FACTOR  OF  1.85  TIMES  ONE 
RITh  1 FINAL  COST  OF  108,87  DOLLAfiSFOR  OVER  SHIPPING 
FOR  ALLOkING  OAMAGE  Th£  COST  IS  87.88  OOLLARS/ ITEM 


Tl*  3.S0u0f«0O  T8*  3, 5U00E-00  T3»  3.5000t*00  TTi*  8.1888E800  TT8*  8.1888E800  T T 3*  8.7877E800 

Tl*  3.S000E-0U  18*  3 . SuOOE-OO  T3*  3.5000E800  TTI*  1.8538E8D0  TT8*  1.8S38E+00  T T 3 * 1.5780E800 

minimum  thickness  for  material  by  axis 

8 . 5 7E5E  tOO  8 .57551*00  3.88381*00 

1.8S87E-00  1.85B7E*00  l.*878E*00 

material  cooe  * i thickness  for  face  one  * k.szs  inches 

material  code  * i thickness  for  face  tru  « 8.575  inches 

material  code  * i thickness  fur  face  three*  3.888  inches 

total  COST/ITEM*  87. 8g 
MINCOS-INPUT 

COST  maTrU-maTeRUl  vertical,  AXIS  HORIZONTAL 

1 1.8b  1,8b  . b8 

8 1.7b  1.7b  .87 

FUR  80. UO  PER-CENT  OAMAGE  ANO  A FRAGILITY  RATE  0F70.0  G'S 

The  COST  IS  B7.«8  OOLLARS  RITh  A MULTIPLICATION  FACTOR  OF  S.OC  TIMES  ONE 
"ITh  a FINAL  COST  OF  838.80  OOLtARSFOR  OvEP  SHIPPING 
FUR  ALLOmInG  OAMAGE  THE  COST  IS  108.88  00LL*R3/»TEM 


Over  shimming  DATA 

the  optimum  cost  is  ai.oi  dollars 
The  fragility  rate  IS  SS.O  G'S 

THE  PER-CENT  damage  IS  0.0 

the  multiplication  factor  is  i.o 


the  optimum  thickness  for  face  one  is  3.010  inches  if  material  8 is  useo 

the  optimum  thickness  for  face  tho  is  3.010  inches  if  material  8 is  useo 

the  jptimum  thickness  for  face  three  is  8.8*8  inches  if  material  8 is  useo 
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DAMAGE  ALLOWABLE  DATA 

ThE  OPTIMUM  COST  IS  81.01  DOLLARS 

THE  FRAGILITY  RATE  IS  SS.O  G'S 

ThE  PER-CENT  DAMAGE  IS  0.0 

ThE  REPAIR  COST/ITEM  a 0.00  DOLLAR;. 


THE  OPTIMUM  THICKNESS  FOR  FACE  ONE  IS 

the  optimum  thickness  for  face  two  is 

THE  OPTIMUM  THICKNESS  FOR  FACE  THREE  IS 


3.010  INCHES  IF  MATERIAL  4 IS  OSED 
3.010  INCHES  IF  MATERIAL  * IS  USED 
2.<m  INCHES  IF  MATERIAL  * IS  USED 


OVERSHIPPING  IS  THE  BEST  POLICY 


***************************************************************************** 
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SAMPLE  PROBLEM  NUMBER  EIGHT 
INPUT  DATA  CARDS 


0 lOO  120  >51  P0.*3590u.  25.\00.i  0.12300  ii  /2*'0  U 7>.or;r.,l 

V.H2-7ttl.  .'  496>7.toV9l73.  >9b2  150. 79b30l.593o03.lbo  l 2U„.  >724  12- 744*2509 
>.66t-H5.l7t-41.9lt-Hi.  nEWl.  3t-H5.0VE-7b.83t-65.0VE-73.09t-75.0ve-7 


Card 
No. 

1 

2 

4 

5 oio.io 


6 

1.92 

l 

0 • 0 9 

1 

t . : 
l 

-22. 

0.10 

1.00 

1 .5 

l 

7 

5.90 

L 

0 . 9 

1. 

•-  . n 

-60  . 

1 

0.14 

1*50 

1 

2*0 

2 

8 

2*U 

1 

0.3 

1 

u . • 

-34  . 

O.03 

ooo 

2*4 

3 

9 

1 >49 

0 . 3 

0 . 

-60  • 

0.20 

1.30 

0 . e 

4 

10 

1 .5b 

1 

0 . 3 

u • - 

-40  • 

0.03 

0 .30 

1.3 

3 

11 

1.3b 

0 • 0 3 

C . 

— 20. 

003 

0.50 

3.0 

6 

12 

1.00 

i 

0 . 3 

[ 

t' . c 

-20  • 

0 . 02 

u . "“o 

7.9 

7 

13 

1.00 

i .f.b 

• 

-2!  • 

0.  o3 

0*20 

1 . 1 

& 

14 

4.20 

o . : 3 

• 

-23  • 

0.  0 1 

0 . 1 3 

11.9 

9 

i5  : 

2.11 

0 . . 5 
l 

c . c 

1 

-20  • 

0.  02 

0 • B 0 

11.1 

1 0 

16 

.0017. 

| 

0023- 

17 

l 

100. 

12 

• 

12. 

24.  4 

18 

35. 

1 

0. 

0 

0 . 0 

19 

6 0 • 

3. 

3. 

20 

65  • 

j 

20 

• 

1 0 . 

21 

70. 

b0 

• 

1 3 • 

I'uon 

inn  inn 

» 0 0 

non 

U 0 f S 0 0 M 3 0 0 0 0 GO  0 0 G tl  0 0 0 0 0 0 1 0 0 0 1 1 1 0 0 0 1 0 0 1 1 1 0 1 1 0 0 

II 

IliilOII 

11)111 

1 1 1 '1  II  II  II  M II  '• 

'»  . 

n :t  n ;> » 

..  :•  ii  >•  n u -■  noiium 

4i  ii « «;  u mi «»  ii  iiu  i»  u i)  w « » s?  si  11  h n u u u u ii  ii  u n n n n n u n .1  muia 

111111 

m 1 1 m n 

1 1 1 

12111 

11111111111111 

111111111111111111111111111111111 

1 1 

1111111 

2 2 2 ? 

1 3 13 
1(11 
5 5 5 5 
III! 
mi 
i ; n 

mi 

1 1 1 < 1 1 


2 2 : !.  2 2 
3 2 3 1 13  3 
41441*1 
5555555 

mini 

n n hi 
nnni 

I » I H II  II  ■!  I*  II 


2 2 1 
3 3 3 

444 
55  4 
: 1 1 

i i i 
m 


in 

ii  ii  m it  n ii  h n a u 


2222222222 

3533333333 

444444*444 

5555555555 

miniiii 

111111:1  n 

nnimn 

imnnn 


nnnnnnnnimiiii 
inniminsminnin 

tt » a i.  u u w n x ii  n a m ii  4 ii  u « u ii  u ii  ini  m u y ‘i  u h a ii  u ii  u u k ii  u u * ii  ii  n i.  n * ii  ii  m 


2 2 » ? 2 

3 3 3 3 3 

4 4 4 4 4 

5 5 5 5 5 

inn 
11111 
II  III! 
nnn 


2 2 2 2 

3 3 3 3 

4 4 4 4 

5 5 5 5 
IHI 
111! 
nn 
in: 
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OPTIMIZATION  PROCEOURE  FOR  DESIGN  of  PACK  a CUSHIONING  ••* 


SAMPLE  PROBLEM  #8  (RANOOM 
EXCITATION)  CONSTANT  TEMPERATURE 


1 s NIC  — LOOE  NO.  OF  CONTAINER  MATERIAL  TO  BE  USEO 
3 * IC-—  uHT  1* I/A1ION  COOE 

i s ijt«  ---  pfH  vj»n» 

20  * hic  — Ha  x Jmum  NO,  OF  ITERATIONS  FOP  OROP  MT.  CALC, 

>S  * *xl  — • "AXIHuh  NO.  OF  ITERATIONS  FOR  G-CON vE RGE NCE 

m * HOHJ  — NuHHER  OF  ENVIRONMENTAL  FRENUENC’ES 
J.iSROf-Ul  IS/LM)  s CS  — COST  OF  SHIPMENT 
25.00  < % ) * Cl  ---  COST  OF  ITE* 

.12*000  (|N.)  * ICON  ---  ThKkNF^s  of  CONTAINER 

>2.00  ( F ) 5 TEHL  — LOWEST  E Nv 1 RONHE N T TEMPERATURE 

7J.D0  ( F ) * T £hh  •••  HIGHEST  ENVIRONHENT  TEMPERATURE 

(RAP/SfcC)  * 0* Jll)  alu  CF  ENV1R0NHENTAL  FREO. 

.*2<*-B*t0Ul  .80tRbEtni3.?b9<UEtOi;.5  3<»R2£tnil.5O?RbEtOZJ.Ol59  3E4O2b.O31BbEtO21.?Ob37EtO32.'*12?'*EtO3H.I2S'HEFOi 
'0  iNP  T FOR  RANDOM  E*c I I AT  ION 

-oJCOfU*  .1  ’ COOE -O'*  l.RinonE-CNl  . HOOnE-0*  l . 130U0E-0HS  .OSn00E-O?*.B30n0fc»0b*.PR000t»O?S.0NQ00E-n?S.08000E«0? 


i a’ S)  s a L J ( I ) 


environmental  excitations  each  corresponding  to  one  of  the  above  ohjcds 


* s NC  — - NUMHER  of  containers 

* * RITE*  ---  I T£  R NUMBER 

1 U * RNHATS-—  NUMBER  OF  MATERIALS  ON  FILE 


r.  ST-MAT 

CST-FaB 

C3T-PA* 

sl-tehp 

LR-STRS 

Mt»sm 

Gamma 

i.R?03F*nu 

s.ooonE-n2 

1.0000E-P2 

•2 • 2000E  4nl 

i.onooE-oi 

i.oooot»oo 

l.SOOOE+OO 

s,»pooe*Oij 

S.0U00E-02 

I.OOOOE-02 

-b.OOOQEtOl 

l.HOnoE-oi 

l.SOOOE.OO 

2. OOOOE tOO 

2.  lbQOE  tOll 

5 .unuoE-02 

1.0P00E-02 

-3.HOOOE401 

3. OOOOE-02 

l.00B0t-01 

2. tDOOE  tOO 

1 • *t  OOE ♦ OU 

S.OOOOE-D2 

1.  DOOflE-02 

-b. OOOOE tQl 

2.0000E-0 1 

1.5000E+00 

B.0000E-01 

i.sp?of*cu 

S.0fj00E-02 

l.QOOOE-02 

-t.noonEtoi 

3. OOOOE  *02 

3.000DE-01 

l.SOOOEtOO 

1 . 3bP0f  *Gu 

S.OOOUE-Q2 

1 . 0000E-02 

-2.0000E401 

J.Q000E-02 

4.0000E-01 

3 „ OOOOE  tOO 

i.ooroi^ou 

5.0000E-02 

i.oonoE-02 

-2. onooEtni 

2. 000  OE -02 

J.OOOOE-Ol 

7.NOOOE tOO 

1.0  .'-'•rrOl! 

S.0000E-02 

I. 0000E-02 

«2.POOOEt01 

3*OOOOE*02 

i.0000t-01 

l.lOOOEtOO 

•»  .20O'IF»0u 

S . 00OUE-02 

i.OOOOE-02 

•2.0000E401 

1.000CE-02 

1.S000E-01 

l.HOOEtOl 

2.1100E+0U 

S.0PQ0E-02 

L.nOODE-02 

•2*0000 01 

2.0000E-02 

I.OOOOE-Ol 

1.1 lOOEtOi 

GARNA 

l.Jnr.Of-03 


C3T-C0NTAINER 

2.323UE-03 


i s I Teh  number 

1.00UOEa02*»EIGhT  OF  ITEM  RJ(  POUNDS  ) 

1 .  ?oooe *01*  oi*ens:on  parallel  tu  x-axis  2no  longest  oihension  xl  (inches) 

1 . 2000E+0 i * DIMENSION  PARALLEL  TO  T-AXJS  3flO  LONGEST  DIMENSION  YL  (INCHES) 

2. *000Et0Is  DIMENSION  PARALLEL  TO  Z-AXIS  LONGEST  OIHENSION  ZL  (INCHES) 

NUMBER  * • 


MATERIAL  COUES  CONSIDERED  ARE 


Hr  lOr 


MAX-G  PCNT-DAM  RERLAC' -cst 

S.SOOUE^OI  3.  0. 

b • 0 0 QOE ♦ 0 1 S.DOOOE«uO  5 • OOOOE  +00 
b.SOOUfctOl  2.000Qt»Lli  l.OOOOE+fll 
J.OOQOEtOl  i.OOOGEH'Ji  l.SOCOE+Ol 
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Tl* 

3.S0U0E+00 

T2* 

J.SuOOEvOO 

T 3*  3.500DEV00 

1 Tl* 

2.5S05EV00 

TT2* 

2.SS0SEV00 

TT3* 

T 1* 

3,50U0E*0D 

f 2* 

3.SU00EV00 

T3*  3.5000EV00 

TT1* 

2.2311EV00 

TT2* 

2 . 2 311E VOO 

TT3* 

Tl* 

3,50U0E*00 

T2* 

3.5U00EV00 

T3*  3.5000E vOO 

TT1* 

2 . ISbSE  TOO 

TT2* 

B.lSbVEvOO 

TT3* 

Tl* 

3,50u0E*0G 

T 2* 

3.SU0PEV00 

T 3*  i.SOOOEvOO 

TT1* 

2.1S11EV00 

TT2* 

2.1S11EV00 

TT3* 

Smock 

THICKNESS 

IS  LARGER  Than 

vibration  THICKNESS 

Shock  THI C KNfc  S3*  2.b2Vltv00  OPTIMUM  VIBRATION  THICKNESS*  3.21B7E-02 


.MATERIAL  v IS  BEING  OELETED 

) MINIH'JM  THICKNESS 

FOR  MATERIAL  BY 

AXIS 

' 3.1U8SEVOO 

3.1U8SEV00 

3.bSbSEtO0 

3 . 5R87E vOO 

3.SR87EV00 

3.V550E»00 

3.0US8E»00 

3.0US2EV00 

2.qqv3E»oo 

2 • R 322E vOU 

2.S322EV00 

2.b2VlEV00 

> MATERIAL  COOE  * 

V THICKNESS  FOR 

FACE  ONE  * 

3.010  INCHES 

) MATERIAL  COOE  * 

v thickness  for 

FACE  TkO  * 

3.010  INCHES 

MATERIAL  CODE  * 

V THICKNESS  FOR 

FACE  THREE* 

2.qqv  INCHES 

. TOTAL  COST/ITEM* 

81.01 

) MINCOS-INPUT 

' COST  MATRIX-MATERIAL  VERTICAL. AXIS 

HORIZONTAL 

1 .IS 

.qq  ,sq 

2 3.2V 

3.2V  1.5S 

V .72 

.72  ,3b 

EON  O.UO  »ER-CENT  DAMAGE  AND  A FRAGILITY  RATE  0FS5.0  G'S 

THE  COST  IS  81.01  DOLLARS  NITM  A MULTIPLICATION  FACTOR  OF  1.00  TIMES  ONE 
KITH  1 FINAL  COST  OF  81.01  OOLLARSFOR  OVER  SHIPPING 

FOR  ALLOnInG  OAMAGE  THE  COST  IS  81.01  OOLLARS/ITEM 


1 1* 

3.S0uUE*00 

T2* 

3.  SuOUEvOO 

T 3* 

3.S000EV00 

TT1* 

2.V07BEV00 

TT2* 

2 . V 07BE VOO 

TT3* 

Tl* 

3.S000EV00 

T2* 

3.SU00EV00 

T 3* 

3..  SOOOEvOO 

TT1* 

l.qosBEvoo 

TT2* 

l.qossEvoo 

TT3* 

Tl* 

3.5000E+00 

T2* 

3.SU00EV00 

T 3* 

3.5000E *00 

TT1* 

2.081  BE vOO 

TT2* 

2 , 0 8 1 8E  VOO 

TT3* 

MATERIAL  3 IS  BEING  DELETEO 

optimum  thickness  * i.32qouvo2  max  allokable  uptimum  thickness  * i.2ooooevo- 


MINIMUM  THICKNESS  FOR  MATERIAL  BY  AXIS 


V. 731bEvOO 

V.73UEV00 

3.qs3qEtoo 

7.VSV0EV00 

7.VSVOEVOO 

3.7270E*00 

2 . 081  BE vO  0 

0. 

0. 

MATERIAL  COOE  * 

1 

thickness  for 

FACE 

one  * 

V , 7 32 

INCHES 

MATERIAL  COOE  * 

1 

thickness  for 

FACE 

TKO  * 

V . 7 32 

INCHES 

MATERIAL  COOE  * 

1 

thickness  for 

FACE 

THREE* 

3 . q BV 

INCMFS 

total  COST/ITEM* 
MINCOS-INPUT 

B8.su 

COST  MATRIX-MATERIAL  VERT IC AL . A X I S 

HORIZONTAL 

1 1.S1 

i 

.SI  .bV 

2 b . 7 1 

b 

.71  l.bB 

FOR  S.00  PER-CENT  OAMAGE  ANU  A FRAGILITY  RATE  OFbO.O  G'S 

The  COST  IS  88. SO  DOLLARS  KITH  A MULTIPLICATION  FACTOR  OF  l.OS  TIMES  ONE 
KITH  A final  COST  of  33,1b  OOLLARSFOR  OVER  SHIPPING 
FOR  ALLOkING  OAMAGE  THE  COST  IS  HI. SO  OOLLARS/ITEM 


, 0 30bE  tOO 
. 2050EV00 
.ORRIEVOO 
.basiEtoo 


.qYRTEvOP 

.OOOOEVOO 

.OSObEvOO 


Tl*  3,50U0E*UU  T8*  3.S00UE700  T3«  J.SOOOtYOO 
Tl*  S.SOOOE  + OO  18*  3 , 5U00E *00  T3«  3.5000E*00 
MINIMUM  THICKNESS  FOR  MATERIAL  BY  AXIS 

7.5755E700  7.5755E700  3.7837E700 
1.75B7E700  1.7587E+00  1.7878E700 


TU*  8.8b50E700 
TT1*  1.577bE700 


TT8*  8.8bS0E*00 
TT8*  1.577bE700 


TT3*  8,BbB7E»00 
TTJB  1.7l?bE700 


MATERIAL  CODE  b 
MATERIAL  COOE  B 
material  COOE  B 


1 THICKNESS  for  face 
1 THICKNESS  for  FACE 

i thickness  for  face 


ONE  * 7.575  INCHES 

t«o  • 7,57s  inches 

Three*  3.787  INCHES 


TOTAL  LOSI/ITEm*  87.98 
MINCOA-INRUT 

COST  HATRIX-MATERIAI.  VERT  IC  AL , AX  I S HORIZONTAL 
1 1.7b  J.7b  ,b7 

8 1.7b  1.7b  ,F7 


FOR  O.uO  PER-CENT  0AM.6E  AnO  A FRAGILITY  RATE  0F85.0  G'S 

the  COST  IS  87, SB  OOLLARS  MITh  A MULTIPLICATION  FACTOR  OF  1.85  TIMES  ONE 

«ITh  a FINAL  COST  OF  10S.A7  DOLLARSFOR  OVER  SHIPPING 
■'OR  ALLOrING  OARAGE  ThE  COST  IS  S7.S8  OOLLARS/ 1 TEM 


TIB  3 . 50U0E*00  T8*  3.5000E700  T3«  3.5000E70P  TT1*  8.1888E700 
Tl*  3. SOUOE’OO  T8b  3.5U00E700  T3*  3.5000E+00  TT1*  1.853BE700 

minimum  thickness  for  material  bt  axis 

7 . 5 755E  *00  7 • 575SE*00  3.7837E*00 

1 . 758  7E*CO  1.75876*00  1.7878E*<10 


TT8*  8. 1?88E*00  TT  3*  8.7B77E700 
TT8*  1.8538E700  TT3*  1.5770E*00 


material  COOE  « 
MATERIAL  COUE  ■ 
MATERIAL  COOE  « 


1 THICKNESS  for  face 
i thickness  fur  face 
1 THICKNESS  for  face 


ONE  * 7.575  INCHES 

TRO  ■ 7.575  INCHES 

THREE*  3,787  INCHES 


TOTAL  COST/ITEms  87.78 
MINCOS-INPUT 

COST  MATRIX-MATERIAL  VERTICAL, axis  HORIZONTAL 
1 1.7b  1.7b  , b7 

8 1.7b  1.7b  .87 


FOR  80.00  PER-CENT  damage  ANO  A FRAGILITY  RATE  OF  70 , 0 G'S 

ThE  COST  IS  87. SB  OOLLARS  KITH  A MULTIPLICATION  FACTOR  OF  5.00  TIMES  ONE 

* I tm  a final  cost  of  737.S0  culi-arsfor  over  snipping 

' OR  ALLORING  0 AMAGE  THE  COST  IS  108.78  OOLL*RS/ITE" 


OVER  SHIPPING  DATA 

THE 

OPTIMUM 

COST  is 

81 

.01 

dollars 

The 

FRAGILI 

TY  RAU  IS 

55.0 

G'S 

ThE 

PER-CENT  Damage  IS 

t 

0.0 

ThE 

M'JLUPL 

RATION  FAC 

TOR 

IS 

1 .0 

the 

OPTIMUM 

THICKNESS 

FOR 

FACE 

ONE 

IS 

The 

OPTIMUM 

thickness 

FOR 

FACE 

T«0 

IS 

ThE 

OPTIMUM 

ThRKNESS 

FOR 

FACF 

THREE  IS 

3.010  INCHES  IF  MATERIAL  7 
3.010  INCHES  IF  MATERIEL  7 
8.777  INCHES  IF  MATFRIAL 


IS  USED 
IS  USEO 
7 IS  USEO 
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DAMAGE  ALLOWABLE  DATA 

ThE  OPTIMUM  COST  IS  81.01  DOLLARS 

Tut  FRAGILITY  RATE  IS  55.0  G*S 
ThE  PER-CENT  DAMAGE  IS  0.0 
THE  REPAIR  COST/ITEM  a 0.00  DOLLARS 


The 

OPTIMUM 

THICKNESS 

FOR 

FACE 

ONE 

IS 

3.010 

INCHES 

IF 

MATERIAL  * 

IS 

USED 

ThE 

OPTIMUM 

thickness 

FOR 

FACE 

TWO 

IS 

3.010 

INCHES 

IF 

MATERIAL  Y 

IS 

USED 

ThE 

OPTIMUM 

thickness 

FOR 

FACE 

THREE  IS 

e.<m  inches 

IF  MATERIAL 

IS  USED 

(O)  OvERShiPPiNG  IS  THE  BEST  POLICY 


A***************************************************************************** 
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SAMPLE  PROBLEM  NUMBER  NINE 
INPUT  DATA  CARDS 

Card 

No. 

1 0lo2ol20731|0»>33900r.25«  C - 0 . ' u . I 23i  0 • U / 2 • 0 0 u 7<:.0l^  l 

t 6^.03  ‘23.66  31 4.  |39e2«.3  lCgH.v63|-,i  .5v439».^33fc  4 . a / 5 9*  .. . 0 j 6 2 03  . I 4 

3 


4 

5 

0.3 

1 

1 - . i 7 

0.5  1 . 

1 ! 

2* 

1 

i . 

> . >.  3 * 

I L 

J ■ * . 

>• 

6 

1 • 92 

1 

0 . a 3 0 • ' 1 

1 

-22  . 

0.10 

1*00 

1 

1 *5 

■ 

5. BO 
1 

0*3  0 . 1 

1 

-br  . 

0.14 

1.50 

2*0 

2 

8 

2.16 

l 

0.3  0*1 

1 

->4. 

0.03 

0.30 

2.4 

3 

9 

1.44 

l. 

0.0  0.1 

1 

-6U  . 

0.20 

1 .50 

0.8 

4 

10 

1.50 

0 . ■ 3 C . 1 

-40  « 

0.03 

0 . 30 

1 .5 

? 

n 

1 .36 

0.5  0 • ' 1 

-20. 

0.  03 

0.50 

3*0 

6 

12 

1 >00 

1 

0 « ' 3 0*1 

i. 

- 2 C . 

0 . 02 

0 *20 

7.9 

7 

13 

1.00 

0 • - 3 0 * 1 

-20. 

0.03 

0.20 

1 . . 

a 

14 

4.20 

0 . i 3 r . 1 

-2  0. 

0 . J 1 

0 . 1 3 

11.9 

9 

15 

2.  1 1 

[. 

0 . 3 0 . ■ l 

-20  * 

0.02 

0«80 

1 1 . 1 

1 0 

16 

.0017. 

1 

0 b 23 

17 

l 

0 3,  . 

12. 

12. 

12.  4 

18 

35* 

0 • 0 

0 . 0 

19 

6 0* 

3 . 

1 . 

20 

65. 

20  • 

4 . 

21 

70. 

60. 

15. 

•litiiiiit 

11)11 

1 1 l » « 

11 1 1 1 1 1 1 1 1 

Jim 

mil 

ill  n 

)im 

44444 

44444 

sssss 

ssm 

IIIII 

mil 

Inn 

11111 

1 

? » j)  11 

Hill 

^ iiiii 

IIIII 

llllt 

1 1 1 1 a 

1 111  iiiii  111111111 111  mum  taioctiiiniimM  mum  tun 

11  n h n 11  it  11  n a 11  a n a n a ti  a a a » 1: 11  w n a » a a « « 11  <1 « it  a u * a a 11 11  u * a * 11  * a h 11  e n * a a it  h a a 
1 I I 1 1 1 I 1 1 t 1 I 1 I I I I 1 I I 1 I 1 I I I 1 I I 1 I 1 I I 1 I 1 II  I I 1 I 1 I 1 1 I I I 1 1 1 I 1 1 I 


II 

a an 

I I 

n 

II 
< 4 
11 
11 
1 7 
11 
11 

11 11  a a 11 11 11 11  a ti  a n h n ■ ti  ■ a h 1.  a a m a a 11  a h h n u mi  11 « 11 11  ■*  -mi  u u * * ■>  >i  * * h ii  it  u m * h 11  h * a 11  n n h n a 11  it  a b 


mmimm 
1 nnimil  u 
4444444444444 

&&S&SSS&&I S55 

■■•••14:11111 

t llllllllll  •( 

miiiiiiiin 


iiimiiiiiimiiim  mm 
iii.tiimiiiiimiiiimii 


mmnm 

iiiiinnii 

44444444444 

SiiiSSlilil 

lllltlllllt 

11111111111 

(1111(11111 

Hlllllllll 


( 

ana 

I 

l 

1 

4 

• 

I 

1 

( 
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• optimization  fob  ofsiun  of  package  cis*icmng  • •♦ 


i 5 nIC  rnoi  NO.  Of  CONTAIN**  maTEHIAl  TO  if  uSFO 

P - K - --,  Ml  I*  WAT  ION  ClOt 


i Ji'«  -- - iTt- 


P'  s -U  -- 

.1  « - 

, K4  % - 1 , ll,  tj 

PS.uf*  ( I ) * 

US'.  J**  (JN.)  S 

>P.JO  ( a ) • 

> c> . tl  n ( * * « 


“A.I*»w**  N'J.  I'f  ITtfcA«!f.«.S  FOB  0*0*  *T.  CALC. 
- * J.  '.f  iU-ATl  NS  FJB  u-CwN*t«UENCC 
- N.“oE"  wlf  is  « I*LN*t  N T At.  fBtiwtNClfS 
* C j ---  COST  ' f S»IP"tsv 
C I ---  COST  rr  Ml* 

ICv'N  T«lC*NfS$  Jf  CONTAIN*# 

t£*L  lOmFSI  E N » I BONNE  NT  TfKBkMAtLB* 

if-"  ---  hUh*ST  f n » I * < N**ENt  T*NPM»iTufcf 


I SAMPLE  PROBLEM  #9  (MULTIPLE  SINE  ' 
‘EXCITATION)  CONSTANT  TEMPERATURE) 


l*a;  %a  ) * ^ - J I I ) a_  F T-t  *n.:#n«*nTal  f #E  G . 

PilOOf  ♦ Q<ib.Pi  nct*<JA  l .PS%bOl*OP  T.  1MS<*E  ♦5Pb.PH00t*Cipl.ll-,*bF*0  3 3 , I’USSFaOS'*,  IMP  JE*0  J%.bS<*l?E*01S.*b*03t*0  3b.pl3iBE*03 


»1C  IS*oT  f3B  BANO'J**  t*CJTAT  JCN 

, ♦,  • , •,  »,  ♦ . •,  »,  •,  i,  *, 

«•  a »:j  l)  • EaCI’ATI.sS  t*r-  CCBwtSPPs: isu  TO  PNE  Cf  T*E  Apc^e  C“J*I)3 

. ' r-  - .i  : ,0u'.C,.E  •'*"?.  oor*.  'C*G"3.*Orr.rt  *203.0  "G!  t*Oo3.0DGOUf  ♦003.0000PE*003.U00O0E*003.000U0E*003.000G0Ea00 


4 I sC  Jf  C2NTAiN**b 

* = -I  rE  - ---  I t-  V “BE  B 

V « «*N“ATS-»«  A “STtBIAtS  * N MLf 


5 ■ A * 

C JT-k  As 

C a T •*  a • 

Sl-T£-P 

L«-ST»S 

hj-sibs 

GAMMA 

A.*P'_A  * 

s 

■ . r t ■ " t' 

i.^'ve-jP 

i .rnoof -o;4 

l . onool *00 

l ,SPCO£*90 

s . • o r -j  * •u 

s. 

) > JVf-OP 

1 .CC«OF-OP 

-f.O900E*01 

1 .AOOOF-Oi 

l.bOOOtbOO 

p.^ojof*oo 

P. ♦ •„  i 

s 

■;  ‘ ci  r -up 

A.jorrf*o? 

- j.  *"nnr  #rj| 

3.0000F-0? 

3 .aObOt-OI 

p. ♦ooot*no 

j .••rot  o-j 

s 

>J»KC-9P 

1,0*00* -UP 

• b . "ronE**  i 

?.OOOOf-Oi 

1 .S000fc*00 

•.nooof -oi 

1 . $*  -a* 

\ 

"F  .rf  - :p 

1 . ■JOOT'f  *op 

-* . iOuO*  *ci 

i.ronof-o? 

s.oonot-oi 

l.snbnf ♦ ;0 

A . 3bC  Of  ♦f'lj 

s 

OoCnt-^P 

i .conof-op 

-p.ooGo**m 

3.ronnf-r»? 

».oonot-oi 

3. 00001*00 

’f  *j«i 

s 

■’n . E -»■  p 

A.r'"'*f  - P 

-<■ . lP'ir  * *o l 

P."  j*"jE  -bP 

P.onont*i>i 

7 , B o L 0 E *20 

1.  : .:0F*L'-J 

s 

j *e  ■ i«* 

i . -»■«» 

-e.roool ♦”! 

J.ru&iif-uP 

p.omnt-oi 

1 . I DUO*  *0(1 

*.p  ■ :» •- 

s 

■i  ^:e - .p 

a • o . • r u F • p 

- «» . o " c o E ♦ n i 

l.ruoof -c-P 

i.SOOOt-Ui 

l . i <a oo i *oi 

p.  ’ . v*r 

s 

"'COf-OP 

l.r-onPi-o? 

-?.  "orj^E^OJ 

p.occnF-rp 

•.oorn£-oi 

1 . 1 IGOf ♦01 

GA--A  Ci’-wCsTAl  *.t  *- 


> r.  jf  i P.  : 

t-03 

. * I ' ‘ “ N jM 

Bt  3 

s.:-icf  u- 

’ f 

item  ‘ #:  .sib  j 

•.St-  N 

PaBAlU.  " I-AAIS 

pn:  lCngfst  ti-ension  «l 

( INP-E  S) 

i . Pt'Ocr  ♦:.!  * 

'O  i v N 

PAfcALtfL  TO  T - A . J S 

w;  lCsuFST  D S m*  ns i On  *l 

(INCHES) 

. , P ^ : ,'jf  • -» i * j*  I “E  *5  ! ^ n 

BABALvEL  ’ Z-AlIN 

u 7 *.  G t S * “ I b E n S I G N n (INC 

-f  S ; 

N.MOfW  5 * 

-*T£BiAk  cc:es  ■:: 

s s * ; f 

-FT  ABA  J,  P, 

•,  b.  IP. 

**  A I ■ i 

PC  NT 

-:a-  «tPiACE-csT 

6 . *•  L t ♦ • A 

*i  S.- 

t c c f • 

•r  a,  *rr 

r. 

r ' . E • 

'1  «,:E*ni 

T , r G b j C • 1 o . 

. 't  • 

G1  1 .so:  ;E *r  1 
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*1* 

3,S0uuE*03 

T2* 

i.SUOOEtOO 

n* 

S.SOOOEtOO 

T T 1* 

2. 7?SSEtOO 

TT2* 

2.7?NSEtOO 

TT3* 

2. 77N8ET00 

11* 

3.  50uuE*U0 

T2* 

3. SuOOEtOO 

13* 

3,5000tt00 

1 T 1 * 

2.b7blEtOO 

TT2* 

2.b7blEt00 

TT3* 

2.b7blE*00 

Tl* 

3. SOuOEtoO 

T2* 

s.suooEton 

T 3* 

3.5000E*00 

T T 1 « 

2.bbB3E«00 

TT2* 

2 • x b 1 3E  tOO 

T T 3* 

2 . b b 8 3E  tOO 

Tl* 

3. 50PDE*00 

T2« 

3. SUOOEFOO 

13* 

3.5000Et00 

TT1* 

3. *12bE  TOO 

TT2* 

3.S12bE*00 

TT3* 

3.S  12bEt0Q 

Tl* 

3 , 5 OOOE  * 00 

12* 

3.5U00E too 

T j* 

3.5000E*00 

TT1* 

2.b2bSE*00 

TT2* 

P. *2*  SE*OC 

TT3* 

2,t2tSEt00 

m1NIm(m  Th I l KNE3S  FOR  MATERIAL  HY 


3.  120*£«00 
i.bizsEtoo 
3.0213E*00 
b . IbbiE ♦00 
2.S»35E»00 


3.120bF*00 
3.bl25EtC0 
3.0213E*00 
b . 1 b 8 3E  ♦ 0 0 
E.SbiSEtOO 


*X1S 

3. ICOtEtOO 
3,bl2bEt00 
3.0213E*00 
b.lb83E*00 
2.R13S£tOO 


> V MATERIAL  CODE 
v‘:j  MATERIAL  CODE 
“ATERTAl  COOE 


ThICknES!  FUR  FACE  ONE  * 

thickness  for  face  t»u  ■ 
THICKNESS  for  face  Three* 


3.021  INCHES 
3.021  INCHES 
3.021  INCHES 


OTAL  COST/ I TEHr  S7.R» 

“INC Ji-INPuT 

COST  maTRIx-maTEHIAL  VERTICAL,  AXIS  HORIZONTAL 


. 

.so 

.50 

.50 

1 .b  3 

1 .b3 

1 • b 3 

• 

. 3b 

.3b 

.3b 

b 

.70 

.’0 

.70 

.52 

.52 

.52 

►JR  o.no  PEC-CENT  LAM  AGE  AND  A FRAGILITY  R»T£  (JFSS.O  G'S 
T Hfc  COST  is  57. R*  OOLLFRS  RITh  a.  HuL T I ®L IC A T 1 ON  FACTOR  OF 

h I Th  A final  COST  OF  57. St  OOLLARSFOR  OVER  SHIPPING 

FOR  Al'.OxlNG  OAHAGE  THE  COST  IS  57. St  OOLLARS/ITEH 


1.00  TINES  ONE 


Tl* 

3.50uOE*00 

12* 

J.SuOOEtOfi 

13* 

3. snonEtuo 

tti* 

2. bblbEtOO 

TT2* 

2. bblbEtOO 

TT3* 

2. bblbEtOO 

Tl* 

3. SOUOEtOO 

T2* 

J.SUOOEtOO 

T 3* 

3.5000E*UP 

TT1* 

2.tl55FtOO 

TT2* 

2.«155Et00 

TT3* 

2.tl55EtOO 

Tl* 

3 , 5 OuUE  * 00 

T2* 

3,5uooE«aa 

T 3* 

3.5000Etun 

TTI* 

2.3tt2E*00 

TT2* 

2. 3»*2Et00 

TT3* 

2 . 3bS2EtOO 

Tl 

3.50U0E*00 

T2* 

3.5uODF*ao 

T 3* 

3. SOUOEtOO 

TTI* 

3.BbOOEtOO 

TT2* 

3 . BbOOEtOO 

TT3* 

3.  BbOOEtOO 

11* 

3.50uOE»(jj 

T2* 

3.5uOLL*00 

T 3* 

3.SOOOEtOO 

TTI* 

2. 38S3E*00 

T T 2 « 

2 . 385  3EtOG 

TT3* 

2.3853Et0O 

MINIMUM  THICKNESS  FOR  MATERIAL 

BY  AXIS 

3. 120*E*00 

3.l20»Etao 

3.120*E»00 

3.bl2SE*UO 

3.bl25Etau 

3.bl2SE«nu 

3.02HE«00 

3.0213E*00 

3.n2i 3E*nn 

b.lb«3E»00 

b.lb83E*00 

b. lbSSEton 

?,q,3S£.P(1 

2.s*35E»an 

2 . **  3SE  top 

M*  T 

ERIAL  code  * 

* 

thickness 

F OH 

FACE  ONE  * 

3.021 

INCHES 

material  CODE  * 

* 

thickness 

tor 

FACE  T»0  * 

3.021 

INCHES 

“ATERIAl  CODE  s 

•» 

thickness 

FOR 

FACE  three* 

3.021  INCHES 

TOTAL  COST/ITEH*  57. S* 
M T NCOS”  I NP'jT 


COST  HA  f ft  I * - material  VERTICAL, A«IS  HORIZONTAL 


i 

.so 

• so 

.50 

V 

1 • b 3 

1 • b 3 

1 . b 3 

«• 

• 3b 

.3b 

.3b 

b 

. 70 

. 70 

.70 

10 

.S* 

.52 

.52 

FUR  S.'JC  PES-lENT  DAHAGE  and  A FRAGILITY  hate  OFbO.O  G'S 

Y"t  COST  IS  S’. “A  DOLLARS  «IT»  A MULTIPLICATION  FACTOR  OF  l.OS  TIh£$  ONE 
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"IT  M A FINAL  COST  OF  bO.RS  OULLAPSFL-T  OVER  SHIPPING 

TOR  AllOpING  DAMAGE  TME  COST  IS  58. Sb  OOLLARS/1TEM 


Us  3.S0O0E-00 

T8  = 3.5u00E*00 

T 3* 

3.5000E+00 

in* 

8.5H33E *00 

TT8* 

8.5b33EbOO 

T T 3* 

8 . Sb  33£*00 

Tl*  J.SOUUE’UO 

1 8*  3.5umjt  + np 

7 3* 

3,5uOOEvtJO 

1 Tl* 

8.15bBEb00 

T T 8* 

E.lSbBEbOO 

TT  3* 

8 , 1 Sb  BE  + 00 

Tl*  3.suooE*un 

18  = 3.5u0UE*00 

T 3 * 

i.suL'ot»on 

T T 1 * 

8.8b00E+00 

TT8* 

8.8b00Eb00 

T T 3* 

8.8b00E-00 

Tl*  i.SOUUE’UO 

T 8“  J.buOutvPO 

T 3 * 

3. SUOOcbUO 

T Tl* 

3. B07bt+00 

T T8* 

3.80?bEb0U 

Tl  3* 

3.B07bE*00 

Tl«  3.  50ll0£b0l) 

T8»  3 . SuOOE+O J 

T 3* 

3.S000E+00 

T T 1 * 

8.3b57EbOO 

TT8* 

8.3b57EbOO 

TT3* 

8.3bS7Eb00 

MINIMUM  IhICaNESS  FOR  MATERIAL 

AT  AXIS 

3. 180b£b00 

3.180b£*00 

3. 180b£300 

3.bl8SE*‘10 

3.bl85E*00 

3.bi85E«nn 

3.0813£*00 

3. 081  3E  TOP 

3.081 3E  *00 

b. lh»3t  *uu 

h . 1 KR  3F  ♦ rt ti 

b.  lbtj  3E«00 

8.R»3SE«Q0 

8.Sb35F+00 

8.Sb35£«00 

MATERIAL  cope  * 

v THICKNESS 

FUR 

FACE  ONE  * 

3.081 

INCHES 

ma-E«IAl  COOL  = 

v T n ICkNESS 

F UH 

FACE  TpO  * 

3.081 

inches 

MATERIAL  COD*  * 

V ThICpnES* 

FUR 

FACE  THP£t* 

3.081  inches 

TOTAL  LOST/ITEMs 

57. Mb 

MInCUS-InPuT 

COST  MATRIK-MATERIAL  VERTICALS 

MIS 

HORIZONTAL 

1 

.50 

.50 

.50 

e 

1 . b 3 

1 • b 3 

1 . b 3 

«♦ 

. 3b 

. 3b 

. 3b 

b 

. 70 

. 70 

.70 

10 

.58 

.58 

.58 

TOP  80. DO  PEP-CERT  OAMAGE  AND  A FRAGILITY  PATE  0Fb5.0  G'S 

TnE  COST  IS  57. Mb  DOLLARS  pITh  a POL T I PL  I C A T I 0 N FACTOR  OF  1,85  TIMES  ONE 

pIT-  A FINAL  COST  CT  78. b3  CJlLAPSTOR  OVER  SHIPPING 

TUP  ALLOPlNG  DAMAGE  THE  COST  IS  bl.Sb  OOLLARS/ITEH 


Tl=  3 . SOl'OE  + 00 

18=  3.5llOOEbOP 

T3=  a.SOOOEbOO 

T T 1 * 

8.b850Eb00 

TT8* 

8.b850Eb00 

T T 3* 

8.b850Eb00 

Tl*  3.50u0£*00 

T8*  3.5U00E+00 

T 3*  3 , 5000E ♦ 00 

T T 1 

l.BSb2E+00 

TT8* 

l.BSbBEbOO 

TT3* 

l.BSb8Eb00 

Tl*  3 . 50U0E *00 

T8*  3.5U00E«00 

T 3 * 3.5000£b0n 

T Tl  * 

8.1 35BtbOO 

TT2* 

8,1 3S8E+00 

T T 3* 

8 . 1 35  BE  + 00 

Tl*  3 . 5 OUOE  + 00 

18=  3 . 5 U0  0E  + 00 

T 3 * 3.5000tb00 

TT1* 

3. ?5b?E+00 

T T 8 = 

3.75b7EbOO 

TT  3* 

3.75b7Eb00 

Tl*  3.50UO£»00 

18*  3.5u00E*00 

T3*  3.5000t»00 

T T 1 * 

8.30blE»00 

T T 8 = 

8.30blEb00 

TT  3* 

8 . 3DblE ♦ 00 

minimum  thickness  tor  material 

HT  AXIS 

3. 180»L*00 

3.180bt+PO 

3.1?PbE*P(i 

3.bl85t«00 

3.bl85E*00 

3 . b 185E+G0 

3 . 081 3t*00 

3.0813E+00 

3.0813E+00 

b.lbbSEbOO 

b.  lbBJE  + no 

b.  lbB3E*00 

8.»b35E«00 

8.Rb35E*00 

8. Mb  35ET00 

material  COPE  = 

b TmICknESS 

FOP  FACE  ONE  * 

3.081 

INCHES 

MATERIAL  CODE  s 

b thickness 

FUR  FACE  TPO  * 

3.081 

INCHES 

"*tERIAL  CC'ir  * 

» thickness 

FOP  FACE  THRffs 

3.TI81  INCHES 

TO''Al  LuST/ilEM*  57. Sb 
m;ncos-inplt 

COST  maTPIx-MATEPIAI  VERTICAL, AXIS  HORIZONTAL 


1 

.su 

.50 

.50 

e 

l.b  3 

l.b  t 

1 . b 3 

* 

. 3b 

. 3b 

. 3b 

b 

. 7 0 

. 7(i 

.70 
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10  .52  .52  .52 

► OH  80.(10  PER-CENT  DAMAGE  AND  A FRAGILITY  RATE  UF70.0  G'S 

ThE  COST  IS  57. SV  DOLLARS  WITH  A MULTIPLICATION  FACTOR  OF  5.00 

WITH  a FINAL  COST  OF  BBS. 72  00LLARSF0R  OVER  SHIPPING 

F OH  allowing  DAMAGE  THE  COST  IS  72.5V  DOLLARS/ITEM 


k 


OVF'H  SHIPPING  DATA 

r ME  OPTIMUM  COST  IS  57. Sv  DOLLARS 

TME  fragility  RATE  IS  55.0  G'S 
'nE  PrR-CENT  DAMAGE  IS  0.0 
TME  MJLl IpLlCAT ION  FACTOR  15  1.0 


THF  OPTIMUM  THICKNESS  FOR  FACE  ONE  IS  3.021  INCHES  IF  MATERIAL  V IS 
■r n OPTIMUM  THICKNESS  FOR  FACE  TWO  IS  3.021  INCHES  IF  MATERIAL  V IS 
THE  OPTIMUM  THICKNESS  FOR  FACE  THREE  IS  3.021  INCHES  IF  MATERIAL  V 


•v  DAMAGE  ALLOWABLE  DATA 
3,  THE  OPTIMUM  COST  IS  57.5V  DOLLARS 
' ThE  FRAGILITY  RATE  IS  55.0  G'S 
THE  PEH-CENT  DAMAGE  IS  0.0 
TnE  REPAIR  COST/ITEM  = 5.00  DOLLARS 


The  optimum 
3.4)  the  optimum 

The  OPTIMUM 


THICKNESS  FOR 

thickness  for 
thickness  for 


face  ONE  IS 
FACE  Two  IS 
FACE  Three  IS 


3.021  I NCF'ES  IF 

3.021  INCHES  IF 

3.021  INCHES 


MATERIAL  V IS 
MATERIAL  V IS 
IF  MATERIAL  V 


OVERSHIPPING 


is  the  best  policy 


TIMES  ONE 


USED 
USED 
IS  USED 


USED 
USED 
IS  USED 


G. 


Material  Selection  and  Cataloging 


1.  Literature 


The  literature  on  cushioning  mate-ials  is  very  large  and  being 
expanded.  Most  of  the  cushioning  material  data  is  empirical;  however, 
work  has  beei  done  to  improve  the  generation  of  material  data  through 
analytical  methods.  Cushioning  materials  can  be  divided  into  three  broad 
groups: 


(1)  RESILIENT  materials  - These  materials  absorb  .relatively 
small  amounts  of  energy  and  recover  most  of  the  cushion 
thickness  in  a short  time.  An  example  is  a lightweight 
open-celled  plastic  foam. 

(2)  QUASI- RESILIENT  materials  - These  materials  remain 
resilient  under  small  excursions;  however,  under  large 
distortions  do  not  recover  completely. 

(3)  NON- RESILIENT  materials  - These  materials  are  used 
for  one-time  absorption  of  very  large  amounts  of  energy 
and  the  material  performs  its  function  once.  This  type 
of  material  is  not  applicable  to  this  project. 

The  data  on  materials  was  available  primarily  from  researchers 
with  very  little  data  obtained  from  the  manufacturer.  The  most  common 
practice  is  to  present  the  data  in  terms  of  peak  acceleration  (ap  in  g's) 
versus  static  stress  (og  in  psi).  These  curves  are  normally  illustrated 
parametrically  in  terms  of  cushion  thickness,  Tr  in  inches,  and  drop 
height,  h in  inche;-  . 

2.  Selection 


The  selection  of  materials  to  be  cataloged  was  based  on  infor- 
mation gathered  throughout  this  effort.  Table  XIII  lists  the  materials  se- 
lected and  cataloged.  For  each  material  (Table  XIII)  which  was  cataloged 
into  the  materials  data  compucer  file,  there  is  a material  code.  For  each 
material  code  there  are  a number  of  parameters  which  describe  the 
cushioning  material  used.  Tables  XIV  through  XXIII  provide  the  usei  with 
physical  descriptions  of  particularly  coded  materials.  For  example,  if 
the  selected  material  code  from  the  program  was  1,  the  user  would  know 
that  the  material  was  a urethane  foam  (ether  type)  with  a density  of  2.  0 
lb/ft^.  The  user  would  know  that  the  SHOCK  DATA  in  the  computer  pro- 
gram was  cataloged  from  the  indicated  Data  Reference  Source,  for  a density 
of  2.0  lb/ft^,  for  the  four  listed  drop  heights,  for  the  listed  thicknesses, 
and  for  a temperature  of  72  F.  Also,  as  a part  of  the  cataloged  file  is  the 
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TABLE  Xill 

CATALOGED  MATERIALS 


Material  Code 

Mate'  ial 

'1 

(dr ethane  Foam 

2 

Foamed  Polyethylene 

3 

Felt 

4 

Expanded  Resilient  Polystyrene 

Rubberized  1 lair 

h 

Cellulosic 

i 

Vinyl  Foam 

H 

Fiber  Glass 

0 

Rubber  Foam 

10 

Air  Bubbles 

range  of  Optimum  Static  Stress  of  0,  10  to  1.00  lb/in. ^ , and  the  Safe  Low 
Temperature  of  -22  F.  Likewise,  the  user  would  know  that  for  the 
cataloged  VIBRATION  DATA,  data  were  obtained  from  the  indicated  Data 
Reference  Source  for  the  parameters  of  Density,  Static  Stress,  Ihickr.ess, 
and  Temperature  listed. 

Figure  9 illustrates  the  typical  data  form  for  peak  acceleration 
versus  static  stress  curves.  This  data  form  was  converted  into  digital 
tabulation  for  computer  compatibility.  The  previously  described  inter- 
polation program  will  be  used  for  the  material  data.  This  program  uses 
a sophisticated  and  accurate  Lagrangian  parabolic  interpolation  technique^. 
Thus,  with  a minimum  amount  of  digitized  data,  these  empirical  curves 
can  be  represented  for  computer  usage. 

Figure  10  illustrates  the  availability  of  recorded  optimum  static 
stresses.  The  inclusion  of  this  data  reduces  the  iterative  process  within 
the  physical  optimization  routine  of  the  computer  program  because  it 
readily  eliminates  some  candidate  materials. 


1 50 


4 

J 

| 

TABLE  XIV 
URETHANE  DATA 


Material  Description:  Urethane  Foam  (Ether  Type) 

Material  Code:  1 

Density  in  Data  File:  (lb/ft^)  2.0 


Data 

Parameters  for 

Reference 

SHOCK  DATA 

Source 

MIL-Hdbk.  304  (5) 

Density:  (lb/ft^) 

2.  0 

»t 

Drop  Heights:  (in.)  18,24,30,36 

1 1 

Thicknesses:  (in.)  2,  3,  4,  5 

1 1 

Temperature:  (°F) 

72 

From  Data  Plots 

Range  of  Optimum 

Static  Stress:  (lb / in. ^ ) 0.  10 

to  1.00 

Mustin,  SVM-2  (1) 

Safe  Low  Temperature:  (°F) 

Parameters  for 
VIBRATION  DATA 

-22 

PB  167  372,  Zell  (6) 

Density:  (lb/ft^) 

2.0 

• 1 

Static  Stress:  (lb/in. 2) 

0.  16 

1 1 

Thickness:  (in.) 

2.9 

l » 

Temperature:  (°F) 

COST  DATA 

72.0 

Commercial  Quote 

to  SwRI 

Material  Cost:  ( $/ ft ^ ) 

1.  C2 

Estimated 

Fabrication  Cost:  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/mir) 

0.  01 

L 
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table  x\ 


POLYETHYLENE  DATA 


Mareri.il  Description 

: Polyethylene  Foam 

Manorial  Code: 

? 

Density  in  Data  Fil> 

db/ft3)  ?.  n 

i 

I 

Data 

Reference 

Source 

Parameters  for 
SHOCK  DATA 

i 

MIL-  Hdbk.  304(5) 

Density:  (lb/ft3) 

2.  0 

Drop  Heights:  (in.) 

18, 24, 30,  36 

M 

Thicknesses:  (in.) 

2,  3,  4,  5 

1 

Temperature:  (°F) 

72 

From  Data  Plots 

Range  of  Optimum 

Static  Stress:  (lb/in.  ) 

0.  14 

to  1.50 

Estimated 

Safe  Low  Temperature:  (~F) 

-60 

Parameters 

for 

VIBRATION  DATA 

Estimated 

Density:  (lb/ft3) 

2.  1 

Estimated 

Static  Stress:  (lb / in. “ } 

1.0 

Estimated 

Thickness:  (in.) 

2.0 

Es  :imated 

Temperature:  ( F) 

72 

COST  DATA 

Commercial  Quote 

Material  Cost:  ($/ft3) 

tc  Sw  R 1 

5. 40 

Estimated 

Fabrication  Cost:  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/min) 

0.  01 

15?. 


TABLE  XVI 
FELT  DATA 


r 


Material  Description:  Wood  Fiber  Felt 

Material  Code:  3 

Density  in  Data  File:  (lb/'ft^)  2.4 

Data 

Parameters  for 

Reference 

SHOCK  DATA 

Source 

MIL- Hdbk  304  (5) 

Density:  (lb/ft^) 

2.4 

M 

Drop  Heights:  (in.)  18,24,  30,36 

»f 

Thicknesses:  (in.)  2,  3,  4,  5 

1 1 

Temperature:  (°F) 

72 

From  Data  Plots 

Range  of  Optimum 

Static  Stress:  (lb/in. ^)  0.03 

to  0. 30 

Mustin,  SVM-2  (1) 

Safe  Low  Temperature:  (°F) 

Parameters  for 
VIBRATION  DATA 

-34 

Estimated 

Density:  (lb/ft^) 

1.8 

Estimated 

Static  Stress:  (lb/in. ^) 

0.  08 

Estimated 

Thickness:  (in.) 

4.0 

Estimated 

Temperature:  (°F) 

COST  DATA 

72 

Commercial  Quote 

Material  Cost:  ( $/ ft ^ ) 

to  SwRI 

2.  16 

Estimated 

Fabrication  Cost:  ($/min) 

0.05 

Estimated 

Packing  Cost:  ($/min) 

0.01 
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TABLE  XVII 


POLYSTYRENE  DATA 


Material  Description: 

Polystyrene  (Expanded  Resilient) 

Material  Code: 

4 

Density  in  Data  File:  (lb/ft3) 

0.  8 

Data 

Reference 

Source 


Parameters  for 
SHOCK  DATA 


MIL-Hdbk.  304  (5)  Density:  (lb/ft3) 


0.4  to  1.5 


Drop  Heights:  (in.)  18,  24,  30,  36 

Thicknesses:  (in.)  1,  1.5,  2,  3,  4,  6 

Temperature:  (°F) 


From  Data  Plots 


Range  of  Optimum 

Static  Stress:  (lb/in. ^) 


Mustin,  SVM-2  (1)  Safe  Low  Temperature:  ( F) 


0.20  to  1.50 

-60 


Parameters  for 
VIBRATION  DATA 


PB  167  372,  Zell  (6)  Density:  (lb/ft3) 

" Static  Stress:  (lb/in. ^) 

Thickness:  (in.) 
Temperature:  (°F) 


Commercial  Quote 

to  SwRI  Material  Cost:  ($/ft3) 

Estimated  Fabrication  Cost:  ($/min) 

Estimated  Packing  Cost:  ($/min) 


COST  DATA 


' i inch  only  for  18,  24,  36  inch  drops. 


1. 44 

0.  05 

0,0! 
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TABLE  XVIII 
RUBBER  HAIR  DATA 


Material  Description:  Rubberized  Hair 

Material  Code:  5 


Density  in  Data  File:  (Ib/ft^)  1.5 


Data 

Parameters  for 

Reference 

SHOCK  DATA 

Source 

MIL- Hdbk.  304  (5) 

Density:  (lb/ft^) 

1.5 

f 1 

Drop  Heights:  (in.)  18,  24,30,36 

1 1 

Thicknesses:  (in.)  2,  3,  4,  5 

1 1 

Temperature:  (°F) 

72 

From  Data  Plots 

Range  of  Optimum 

Static  Stress:  (lb/in.^)  0.03 

to  0. 30 

Mustin,  SVM-2  (1) 

Safe  Low  Temperature:  (°F)  ’ 

Parameters  for 
VIBRATION  DATA 

-40 

Estimated 

Density:  (lb/ft^) 

1.48 

Estimated 

Static  Stre3s:  (lb/in. ^) 

. 256 

Estimated 

Thickness:  (in.) 

3.0 

Estimated 

Temperature:  (°F) 

COST  DATA 

72 

Commercial  Ouote 

to  SwRI 

Material  Cost:  ($/ftJ) 

1. 58 

Estimated 

Fabrication  Cost:  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/min) 

0.  01 

TABLE  XIX 
CELLULOSE  DATA 


Material  Description 
Material  Code: 
Density  in  Data  File: 

: Cellulose  Wadding,  Asphalt 

6 

(lb/ft^)  3.0  (Estimated) 

T r eated 

Data 

Reference 

Source 

Parameters  for 
SHOCK  DATA 

MIL-  Hdbk,  304  (5) 

Density:  (lb/ft^) 

2.  91 

* 1 

Drop  Heights:  (in.)  18,  24,  30,  36’’ 

" 

Thicknesses:  (in.)  2,  3,  4,  5 

• • 

Temperature:  (°F) 

72 

From  Data  Plots 

Range  of  Optimum 

Static  Stress:  (lb/in. ^)  0.03 

to  0.  5 0 

Estimated 

Safe  Low  Temperature:  (”F) 

-20 

Wilson,  L.  T.  (7) 

Parameters  for 
VIBRATION  DATA 

Sandia  Labs 

Density:  (lb/ft^) 

2.91 

1 1 

Static  Stress:  (lb/in. 2) 

. 268 

• » 

Thickness:  (in.) 

3.  0 

• ? 

Temperature:  (°F) 

72 

Commercial  Quote 
to  SwRI 

COST  DATA 

Material  Cost:  ($/ft^) 

1.  it 

Estimated 

Fabrication  Cost:  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/min) 

0.  C i 

Drop  Height  36"  was  estimated. 
Compression  of  16,7%. 


I 
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TABLE  XX 
VINYL  FOAM  DATA 


M 


Material  Description:  Vinyl  Foam 

Material  Code: 

7 

Density  in  Data  File: 

(lb/ft3)  7.9 

Data 

Reference 

Source 

Parameters  for 
SHOCK  DATA 

Estimated 

Density:  ( lb / ft ^ ) 

7.  97 

* ! 

Drop  Heights:  (in.  ) 18,  24,  30,  36 

» 

Thicknesses:  (in.)  2,  3,  4,  5 

1 1 

Temperature:  (°F) 

72 

From  Plots 

Range  of  Optimum 

Static  Stress:  (lb/in.^)  0.  02 

to  0.  20 

Estimated 

Safe  Low  Temperature:  (°F) 

-20 

Parameters  for 
VIBRATION  DATA 

Wilson,  L.  T.  (7) 

Sandia  Labs 

Density:  (lb/ft3) 

7.  93 

1 1 

Static  Stress:  (lb/in. ?•) 

. 266 

1 1 

Thickness;  (in.) 

3.  0 

* 1 

Temperature:  (°F) 

72 

COST  DATA 

Estimated 

Material  Cost:  ( $ / ft 3 ) 

1.  OC 

Estimated 

Fabrication  Cost:  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/min) 

0.  01 

" Compression  of  16.  1%. 
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TABLE  XXI 
FIBER  GLASS  DATA 


Material  Description 
Material  Code: 
Density  in  Data  File: 

: Fiber  Glass 

8 

(lb/ft3)  1.1 

" '1 
1 

Data 

Reference 

Source 

MIL  - Hdbk.  304  (5) 

Parameters  for 
SHOCK  DATA 

Density:  (lb/ft3) 

1.  1 

t r 
• r 

Drop  Heights:  (in.)  18  , 24  , 30,  36 

Thicknesses:  (in.)  2,  3,  4 

Temperature:  (°F) 

72 

From  Data  Plots 
Estimated 

Range  of  Optimum 

Static  Stress:  (lb/in. 0,03 
Safe  Low  Temperature:  (°F) 

to  0. 20 
-20 

Wilson,  L.  T.  17) 

S.tndia  Labs 

Parameters  for 
VIBRATION  DATA 

Density:  (lb/ft3) 

2.0 

t , 

Static  Stress:  (lb/in. ^) 

. 256 

* ! 

Thickness:  (in.) 

3.0  , 

1 

» t 

Temperature:  (&F) 

72 

Est  imated 

COST  DATA 

Material  Cost:  ( $/ ft 3 ) 

1. 00 

Estimated 

Fabrication  Cost:  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/min) 

0.  01 

18,  24,  36  inch  drop  heights  were  estimated. 
■ Compression  of  15.8°^. 
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TABLE  XXII 


RUBBER  FOAM  DATA 


Material  Description 

: Rubber  Foam 

Material  Code: 

9 

Density  in  Data  File: 

(lb/ft3)  11.9 

Data 

Reference 

Source 

Parameters  for 
SHOCK  DATA 

Estimated 

Density:  (lb/ft^) 

11.9 

! » 

Drop  Heights:  (in.)  18,  24,  30,  36 

• 1 

Thicknesses:  (in.)  2,  3,  4,  5 

M 

Temperature:  (°F) 

72 

From  Data  Plots 

Range  of  Optimum 

Static  Stress:  (lb/in. ^)  0.01 

to  0.15 

Mustin,  SVM-2  (1) 

Safe  Low  Temperature:  (°F) 

-20 

Wilson,  L.  T.  (7) 

Sandia  Labs 

Parameters  for 
VIBRATION  DATA 

Density:  (lb/ft3) 

11.9 

1 f 

Static  Stress:  (lb/in. ^) 

1, 28 

* f 

Thickness:  (in.) 

3.  0 

" 

Temperature:  (JF) 

72 

Commercial  Quote 
to  SwRI 

COST  DATA 

Material  Cost:  ( S / ft ^ ) 

4.  20 

Estimated 

Fabrication  Cost:  ($/min) 

0,  05 

Estimated 

Packing  Cost:  ($/min) 

0.  01 

Compression  of  3.  0%, 
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TABLE  XXIII 


AIR  CAP  DATA 


Material  Description 

: Air  Cap 

Material  Code: 

10 

Density  in  Data  File:  (lb/ft^l  1.  1 

Data 

Reference 

Source 

Parameters  for 

SHOCK  DATA 

Kinetic  Systems, 

Inc.  (8) 

Density:  (lb/ft^) 

1.0 

M 

Drop  Heights:  (in.) 

18, 24, 30, 36 

Thicknesses:  (in.) 

1,  2,  3 

•> 

Temperature:  (CF) 

72 

From  Data  Plots 

Range  o'  Optimum 

Static  Stress:  (lb/in.  ) 0.02 

to  0.80 

Estimated 

Safe  Low  Temperature 

s:  (°F) 

-20 

Parameters  for 

VIBRATION  DATA 

Estimated 

Density:  (lb / ft ^ ) 

1.8 

1 » 

Static  Stress:  (lb/in. 

0.08 

1 f 

Thickness:  (in.) 

4.0 

» t 

Temperature:  (JF) 

COST  DATA 

72 

Commercial  Quote 

to  SwRI 

Material  Cost:  ($/ft^) 

2.  1 1 

Estimated 

Fabrication  Cost;  ($/min) 

0.  05 

Estimated 

Packing  Cost:  ($/min) 

0.  01 
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FIGURE  9.  PEAK  ACCELERATION  VERSUS  STATIC  STRESS 
CURVES  FOR  POLYETHYLENE  FOAM 
[Mustin,  G.  S.  ] ^ 


1 6 1 


CIS  0 20  050  040  (ISO  0(.0  0 60  10  IS 

STATIC  SThtSS  ( PSI| 

FIGURE  10.  RANGE  OF  RECORDED 
OPTIMUM  STATIC  STRESSES 


3.  Materials  Data 

For  each  material  listed  in  Table  XIII,  there  is  a coded  file 
containing  the  following: 

Data  on  Disk  File  for  Each 
Package  Cushioning  Material 


Shock  Environment 


Format  Record  No. 


( E7.  0,  512) 


RHOM,  DRPH.  ICODE 


E7.  0 


RHOM  - Specific  weight  of  the  material  (PCF) 


DRPH  - Drop  height 

ICODE  - Code  used  in  updating  files 


NT.  NTH,  NS 

NT  - Number  of  temperatures  (Max.  = 5) 
NTH  - Number  of  thicknesses  (Max.  = 10) 
NS  - Number  of  stresses  (Max.  r JO) 
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For  mat  Record  No. 


(11E7.  0) 

3 

(T  (I),  I = 1,  NT) 

E7.  0 

T ( I)  - One  of  the  tempe  atures  at  which  data  is 
recorded  (degrees  fahrenheit) 

(1 1 E7.  0) 

4 

(TH (I),  I = 1,  NTH) 

E7.0 

TH(I)  - One  of  the  material  thicknesses  con- 
sidered during  data  gathering 

(1 1E7.  0) 

5 

(SIG(I),  1=1,  NS) 

E7.  0 

SIG(I)  - Static  stress  at  a point 
DO  XX  K = 1,  NT 
DO  XX  1 = 1,  NTH 

(1  1E7.  0) 

6 

thru 

XX  READ  (MS,  F)  (TAB  1 (I,  J,  K),  J-  1,  NS) 

(NT)  * (NTH)  TAB1  (I,  J,  K)  = G = F(Thicknes s,  Stress, 

Temperature) 


where  (NT)  * (NTH)  = (5)*  (4)  = 20 
for  the  18-inch  drop  height, 

The  preceding  type  of  information  is  also  stored  for  the  24-inch  drop 
height,  30-inch  drop  height,  and  36-inch  drop  height,  respectively. 

Next  is  the  vibration  environment  which  consists  of  the  following: 

The  first  record  number  for  the  vibration  data  will  be  irs  + 1, 
since  the  last  record  of  the  shock  data  (Xrs)  will  be 

Ars  = 4*5  + (NT18)  * (NTHlg)  4 (NT24)  * (NTH24) 

+ (NT30)  * (NTH30)  t (NT36)*(NTH36) 

where  for  NTj  and  NTHj  the  subscript  i denotes  the  indicated  drop 
height. 
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Input  Data  - Disk  Files 
Vibration  Environment 


Format  Record  No, 


(E7.0.  SI?)  |rst  i KIIOM,  MTS,  MOMS 

E7,  0 RilOM  - Specific  weight  of  the  material  (PCF) 


12 

12 

(11E11.4)  £ r .s  t 2 

El  1.4 


MTS  - Number  of  temperatures  (Max.  = 10) 
MOMS  - Number  of  frequencies  (Max.  - 10) 

(TS (I).  I - 1,  MTS) 

TS(I)  - A temperature  at  which  data  is  recorded 
(degrees  fahrenheit) 


(11  Eli.  4) 

Ell. 4 

■ 

f 

t 

L 

| ( 1 1 E i 1 . ^ ) irs  *■  3 

[ thru 

l rs  * MOMS 

(11  Ell.  4)  £rs  4 MOMS  XX 
* 1 thru 
£rs  + MOMS 
■tit  MOMS 


(QMS  ( I),  I = 1,  MOMS) 

QMS(I)  - A frequency  at  which  data  is  recorded 
(rad/ sec) 

DO  X M,  MOMS 

X READ  (MS,  FI)  (TAB  1 (I,  J,  1),  J = 1,  MTS) 
TAB1  (I.  J,  1)  = ER  = F (Temp.  , Freq.  ) 

DO  XX  i r 1,  MOMS 

READ  (MS,  F2)  (TAB2  (I,  J,  1 ),  J = 1,  MTS) 
TAB2  (I,  J,  1)  = EL/ER  = F (Temp.  , Freq.  ) 


The  romnlete  shock  and  vibration  data  file  printout  is  available 
f:  '»m  the  cognizant  project  engineer  at  U,  S,  Army  Natick  Laboratories. 


I i.  Optimization  Technique 

The  general  concept  of  an  optimization  process  involves  the  pro 
blem  of  minimizing  a function  of  several  variables,  wherein  the  variables 
are  subject  to  a set  of  constraints.  The  function  to  be  minimized  is 
genera-lly  referred  to  as  a cost  function  and  for  the  present  problem  it  is 
exactly  that,  an  expression  of  cost.  The  conditions  of  constraint  for  the 
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package  problem  involve  numerous  variables  mo -t  of  which  deal  with  eithev 
the  protection  of  the  packaged  item  and  thus  the  cushioning  designs  that 
meet  the  required  fragility  limits  for  a given  shipping  environment,  or  are 
of  concern  in  the  total  weight  and  cube  of  the  package  for  purposes  of 
determining  the  cost  of  shipping. 

Unfortunately,  the  constraint  equations  for  this  problem  cannot  be 
explicitly  written  out  in  functional  form,  such  as  in  the  form  of  inequalities, 
since  most  of  the  cushion  design  variables  are  in  the  fo:*m  of  various  graphs 
which  are  s jred  as  discrete  variables;  likewise,  packaging  exterior  con- 
tainer designs  and  shipping  costs  ?re  also  in  discrete  form.  Therefore, 
an  optimization  solution  technique  such  as  linear  programming^  does  not 
conveniently  lend  itself  to  the  present  problem. 

Thus,  the  optimization  technique  used  in  this  computer-aided  design 
procedure  is  to  take  the  specified  problem  input  values  and  use  the  input 
data  in  conjunction  with  the  data  stored  for  each  material  in  an  iterative 
process.  The  iterative  process  will  finally  produce  only  those  materials 
which  will  meet  all  aspects  of  the  shipping  problem.  The  optimum  material 
is  finally  selected  on  the  basis  of  least  cost. 

After  the  input  data  are  read  by  the  computer,  the  three  tempera- 
tures are  set  by  using  the  specified  high  and  low  temperatures  and  a third 
temperature  halfway  between  the  two  extremes. 

Those  materials  that  cannot  provide  proter^on  throughout  the  speci- 
fied temperature  range  are  eliminated.  If  the  static  stress  of  the  shipped 
item  is  outside  of  the  optimum  static  stress  range  of  a material,  that 
material  is  eliminated  from  further  consideration. 

I.  Package  Cushioning  CAD  Pregram  User  Guide 

To  use  the  CAD  Program,  OPPACK,  for  the  design  of  package 
cushioning,  the  user  must  be  able  to  adequately  understand,  define,  and 
describe  his  package  cushioning  problem.  A very  simple  step-by-step 
tabulation  of  the  required  input  data  to  the  CAD  Program.  C^PACK,  is 
shown  in  Table  XXIV 

Sample  Problem  No.  I 

The  problem  is  to  optimumly  ship  a 12  in.  x 12  in.  x 24  in.  , 

100-lb  item  in  a cardboard  contained  from  Point  A to  Point  B. 

The  package  cushioning  engineer  completes  the  information  in 
Table  XXIV  and  codes  the  computer  sheets  for  keypunching.  The  punched 
cards  would  appear  as  shown  in  Table  XXV. 
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TABLE  XXIV 

STEP-BY-STEP  CAD  PROGRAM,  OPPACK, 
INPUT  DATA  REQUIREMENT  FROM  USER 


Input  Data  on  Caid  Number  One 

What  is  the  shipping  container  material? 


Wood 

Paperboard 


NIC  = 


Step  2. 


Step  3. 


Step  4. 


Step  5. 
Step  6. 


Which  type  of  vibration  optimization  is  to  be  used? 

MIL- ST D- 8 1 OB  - IC  = 1 

Multiple  sine  - IC  = 2 

Random  - IC  = 3 

What  is  the  Item  Number? 

Set  117  M = 1 

What  are  the  maximum  number  of  iterations  needed  for 
convergence  of  drop  height  calculations? 

MIC  = 

If  the  number  of  iterations  are  unknown, 

Set  MIC  = 20 
Set  MXI  = 0 

What  is  the  number  of  environmental  frequencies  which  are 
going  to  be  provided  as  input?  (Up  to  a maximum  of  II) 

MOM  J = 


Step  7.  What  is  the  cost  of  shipping? 


Step  8. 


CS  = { $/ lb ) 

What  is  the  cost  of  the  item? 


Step  0.  What  is  the  thickness  of  the  shipping  container? 

T CON  (in.) 

T:p  10.  What  is  the  lowest  environmental  temperature  (°F)  to 
which  the  item  will  be  exposed? 

TEML  = <°F) 


TABLE  XXIV  (Contd.  ) 


Step  11. 


What  is  the  highest  environmental  temperature  (°?)  to 
which  the  item  will  be  exposed? 


Step  12. 


Step  13. 


Step  14. 


TEMH  = 


(°F) 


NOTE  If  (TEMH  - TEML)  < 20  F,  make  TEMH  = TEML 


Input  Data  on  Card  Number  Two 

What  are  the  er. . ironmental  frequencies  (radians/second)  in 
ascending  order  up  to  a maximum  of  1 1 (i.  e.  , MOMJ  < 11) 
from  Step  6? 


If  the  environmental  frequencies  are  UNKNOWN,  use 

6.  283,  62.  83,  125.  314.159,  628.300,  1884.96, 

3114.  59,  4398.  23,  5654.  87,  5969.  03,  6283.  19 
(rad/ sec). 


Input  Data  on  Card  Number  Thiee 

What  is  the  Power  Spectral  Density  (PSD),  g^/Hz  value  at 
each  of  the  corresponding  environmental  frequencies  in 
Step  12? 

If  the  environmental  frequencies  of  Step  12  are  used  and  PSD 
values  are  UNKNOWN,  use 

0.000366,  0.000517,  0.000191,  0.000191,  0.000113, 

4.  09(10) ~ 7,  5.83(10)*6,  5. 09(10)"?,  5,  09(10)-?,  5.09(10)-? 

(g^/  Hz). 


Input  Data  or.  Card  Number  Four 

What  are  the  environmental  acceleration  levels,  g,  which 
correspond  to  tne  environmental  frequencies  in  Step  12? 

If  the  environmental  frequencies  of  Step  12  are  used  and 
acceleration  levels  are  UNKNOWN,  use 

0.5,  0.5,  1.,  3.,  3.,  3 , , 3.,  3.,  3.,  3.  (g) 
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TABLE  XXIV  (Contd.  ) 


i, 

i 


i 


5 

I 


Input  Data  on  Card  Number  Five 

Step  15.  How  many  different  types  of  containers  are  there  to  be 
considered? 

NC  = 

Whav  is  the  Item  Number? 

MITEM  = 

1 

MITEM  - is  an  arbitrary  number  assigned  to  the  item  being 
! shipped.  MITEM  must  not  be  greater  than  two 

digits  (i.  e. , 99).  The  following  must  exist: 
MITEM  = IITEM  = ITEM. 

What  is  the  number  of  materials  on  disk  file? 

MNMATS  = 10 

MNMATS  (Columns  5-6)  on  Card  Number  Five  should  be  the 
following  (i.  e. , 10)  until  modified  by  Natick  Laboratories. 
Check  with  cognizant  engineer. 

u ■■'1 1 ' 

* * i 


11  II  IMHIIM 

1 i i i i ■ II  I >1  l.  II  II  u It 


1 1 1 1 1 1 1 1 1 1 1 1 II 1 1 1 1 1 1 1 1 8 1 1 S b 9 II II 0 1 1 1 Q 1 1 1 1 1 1 1 1 1 1 1 1 1 1 

n u il  a n a a 11  a a 11  a a a li  & u u 11  a 11  a a u n i>  n u 11 U n m il  » 11  » u ti  u a 11  a a a 11  n u u u a 11  u a 


1 1 

1 1 1 1 1 111  11 

1 1 

am 

2 2 2 2 2 

222222 

nn 

11111 

111111 

4 4 4 4 

4 4 4 4 4 

4 4 4 4 4 4 

SSSS 

SSSSS 

suns 

MU 

HIM 

mm 

i j 

7?n 

» 

mil 

mm 

nu 

E 

uni 

iiiiii 

“ IIU 

urn 

mm 

I I I I I 1 I I I 1 11  II  I I I III  I I)  I HI  1 II  1)  1 1 I I I I I 11  I I I I I 


mil 

inn 

4 4(44 

n ns 
mu 
urn 

mu 

mil 


2222122:22222 



snnnnnu 

A/  I III  1 1 1 1 1 1 III 
11111111 1 1 111 
ii  i iiiiiiii  ini  in  Jim  1 1 n mi  mu 
1 1 ii  i m 19  us  i mmimiiiiimiiii 


Hill 

n n n a n 

I I I I I 
22112 
inn 

4 4 4 4 4 
SUSS 
Hill 
mil 
1 1 1 1 1 

I I in 


Mil 

ii  ... ■ 

mi 


i i i i i i i • i n n n it  ii  n ii  n n n a n n n n a n n n n a i.  ii  n m b » n a a n ii  <i  " « n n n n mi  ii  i>  m ii  i>  n a » a n n im  11  u n u u » n n n h n a n a n a 


where  Number  of  Container  types 

to  be  considered NC  = 1 

(The  input  data  for  each  type 
of  container  are  as  shown  on 
Input  Data  Card  Sixteen) 

Item  Number  MITEM  = 1 


Number  of  Materials  on  File  - MINMATS  •_  10 


DO**  1C 


TABLE  XXIV  (Contd.  ) 

Input  Data  on  Cards  Numbers  Six  through  Fifteen 

Step  16.  Cards  Numbers  Six  through  Fifteen  should  be  the  following, 
until  modified  by  Natick  Laboratories,  Check  with 
cognizant  engineer. 

« - 1 • 1 J*:  c J e;  J 


Reproduced  from 
best  available  copy. 


1 

J 

J 


J 

J 

1 r 

J 

J 


! . 3 

I 

1 1 # 

J 

3 1.1 

J 


I 


2 2 2 2 2 2 2 

22222222322 

2 2 2 2 2 2 2 

nniji 

innnnn 

2211311 

1 4 4 4 4 4 1 
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TABLE  XXIV  (Contd.  ) 


Input  Data  on  Card  Number  Sixteen  through 

Step  17.  Card  Number  Sixteen  contains  the  specific  weight  (lb/in. 

and  cost  ($/in.^)  of  the  container  material.  The  cost  of 
container  material  is  material  volume,  NOT  container 
volume. 

There  should  be  one  Card  Number  Sixteen  type  card  for 
each  container  material  specified  in  Data  Card  Number 
Five  (i.  e.  , NC).  The  data  cards  would  appear  as  follows: 
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Input  Data  on  Card  Number  Fifteen  + Number  of 
Container  Material  Cards  (i.  e.  , Card  Number 
Seventeen  in  Sample  Problem) 


Step  18. 
Step  19. 
Step  20. 

Step  2 1 . 


What  is  the  number  of  items? 
What  is  the  weight  of  the  item? 


ITEM  = 
WI  = 


(lb) 


What  is  the  X-length  (2nd  longest  length)  of  the  item? 
XL  (in.) 

What  is  the  Y-length  (shortest  length)  of  the  item? 

YL  = (in.) 
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Step  22.  What  is  the  Z -length  (longest  length)  of  the  item? 

ZL  - (in.) 

where  the  lengths  are: 


I XL  ! 


i i 

Step  23.  How  many  different  percent  damage  allowable  cases  are 
there9  (Maximum  = 10) 

NPCNT  = 

Input  Data  on  Cards  Numbers  Fifteen  + Number  of  Container 
Material  Cards  -4  1 (i.  e.  , Card  Number  Eighteen  in  Sample 
Problem),  through.  ...  Last  Card  Containing  Damage  Allow- 
able Data  (i.  e.  , Card  Number  Twenty-Cne  in  Sample 
Problem  One). 

Step  24.  What  is  the  fragility  of  the  item  in  acceleration,  g? 

GMF(I)  r (g) 

Step  25.  What  is  the  percent  damage  at  the  acceleration  level  in 
Step  24? 

PCTD(I)  = (%) 

Step  26.  What  is  the  replacement  cost  for  the  percent  damage  in 
Step  2 5 9 

REPCI(I)  = ($/ item) 

Step  27.  Repeat  Steps  24,  25,  26  for  each  different  percent  damage 
allowable  case  indicated  in  Step  23  on  a separate  input 
data  c li  d. 
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No. 
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TABLE  XXV.  SAMPLE  PROBLEM  NUMBER  ONE 
INPUT  DATA  CARDS 
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Input  Data  on  Card  X u mber  Gnu 
Step  1 . The  shipping  container  is  cardboard. 

NIC  = 1 

Step  2.  The  shipping  environment  is  considered  to  have  Multiple 

Sine  Excitation. 

1C  r 2 

Step  3,  The  item  number  is  No.  1 
IITM  = 1 

IITM  is  an  arbitrary  number  assigned  to  the  item  being 
shipped.  IITM  must  not  be  grea:er  than  two  digits  (i.  e.  , 99). 
The  following  must  exist:  IITM  = MITEM  = ITEM. 

Step  4.  The  maximum  number  of  iterations  are  desired  for  the  drop 

height  calculations. 

MIC  r 20 

Step  5.  Set  MXI  = 0 

Step  6.  The  eleven  environmental  frequencies  are  going  to  be  provided. 

Step  7.  The  shipping  cost  is  $0.  3359  per  pound. 

CS  = 0.  3359  (S/lb) 

Step  8.  The  item  cost  is  $25.00. 

Cl  = 25.  00  ($) 

Step  9.  The  shipping  container  is  0.  125-in.  thick. 

T CON  = 0.  125  (in.) 

Step  10.  55  F is  the  lowest  environmental  temperature. 

TEML  = 55  ( " F) 

Step  1 1 . 72  F is  the  highest  environmental  temperature. 

TEMH  = 72  (°  F) 

Since  (TEMH  - TEML)  < 20°F,  make 
TEMH  = TEML 


Input  Data  Card  Number  One  would  look  like  the  following: 


(Input  Data  Card  Number  One) 
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Input  Data  on  Card  Number  Two 

Step  12.  The  environmental  frequencies  (rad/9ec)  are  UNKNOWN; 
therefore,  the  suggested  frequencies  are  used. 

Input  Data  Card  Number  Two  would  look  like  the  following: 
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Input  Data  on  Card  Number  Three 


Step  1 3.  Since  the  Multiple  Sine  Excitation  (IC  = 2)  is  being  used, 
this  card  is  blank. 

Input  Data  Card  Number  Three  would  look  like  the  following: 
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Input  Data  Card  Number  Four 

Step  14.  Since  the  suggested  environmental  frequencies  are  used 

(i.  e.  , Step  12;,  tne  suggested  acceleration  levels  are  used. 

Input  Data  Card  Number  Four  would  look  like  the  following: 
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Step  15. 


Since  there  is  only  one  type  of  container  to  be  checked  and  the 
item  number  is  "1",  Input  Data  Card  Number  Five  would  look 
like  the  following: 


Won' 

K'°^ab,e  topv- 


I M ClOOMOSICO0OO!S0ll0llSOS68S60OO89OOCillOCMOOOOO0l 

j j j 4 j i • t ii  j m «j  <i  •;  ;i  ij  n n » n n a .1  ti  w n a v w :i  u u u ji  ti  « < «;  u u **  •’  « n a i:  h m » vmi  u 11  m H u m is  » *?«  it  it  tt  rj  tj  h n n » >i  n ■ 

1 | |1  I 11  1 1 11 1 1 I 1 1 1 1 1 1 1 1 1 11 1 1 1 1 I 1 1 I I 1 I I!  1 I I I 1 1 1 1 1 1 I I 1 I 

* ; i n n 2 : ? n : 2 2 : j : 1 222  j 2 2 2 2 2 2 2 

. j J 3 3 3 i 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 .1 

I 4 4 4 4 4 4 4 4 4 4 4 4 4 4 < 4 4 4 4 4 4 4 4 4 4 4 4 \ 

. . 5 1 5 5 5 5 i 5 5 S 5 5 5 5 5 5 5 5 5 5 5 5 5 5 S 5 j(/ 

• 5 5 « 5 J 6 1 6 6 S 5 El  6 6 S 6 » 3 5 6 III  J J H « 

iimmnnimnmminm 


iomoomooomimm 

uuiihi  iiiiuuaiMi it  it  it  it  n u 
11  11  1 11  11  1 11  1 1 I I 1 I 

222322223322222222 

333333333333333333 

444444444444444444 

ssssssssssssssssss 

I6MMMMMEIIM0 

/ / 1 1 ; ii  mm  nm 


Mill 

ti  it  t,  t,  ■ 

1 I 1 I I 

2 2 2 2 2 
3 : : . i 

4 4 4 4 . 

5 5 i 3 5 

mu 

7 7 7 7 ? 


3 1 i 1 i 3 3 3 3 I 1 17 { i a 3 3 { 3 3 ! » 3 


1 

5 3 i 1 5 3 I J 3 3 3 1 J 3 3 1 3 3 1 3 J 3 J 3 J 3 1 J II  1 1 1 1 1 3 1 1 1 1 1 3 1 1 3 3 3 i 3 3 1 I 3 3 3 I 

2 
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Input  Data  on  Cards  Numbers  Six  through  Fifteen 

Step  16.  Input  Data  Cards  Numbers  Six  through  Fifteen  would  look 
like  the  following: 


lllllli;  0,  MO,  0,  Mill,  Mil 


1 1 i 1 1 1 1 1 1 it  i'  >t  it  11  n 11 11 11  n n ti  tt  n rt  n n 11  n n ■ 1'  » 11  x n tni  u im:  « 1. 1:  u n « 1 u <1  u ini  >1  x u » u u h n ti  imi  « n h 11  (i  n 11 11  it  it  m 


t 


1 1 ij  1 1 1 1 1 1 ; 1 1 1 1 1, 1 1 1 1 1 1 1 1 1 
2, 222222222222222222, 22222 
33, 33333, 33333, 3333333, 333 
44444444444444444444444444 
5 5 5 5 M 5S  5 S,  Ml  5 5 5 5 5 3 3 5 IS  ' 5 
1 1 1 1 1 M I II  H I 9 I E M i 3 5 I 9 1 1 
77777777777777777777777777 
t 1 3 3 1 3 , 3 3 J 3 3 , 3 6 1 3 3 2 !,  II I 
:is39iii  mi  mm  mm  in 

i • .'it  • i i ii  % . ■*  , ■!  i > :t  ti  tt  it  ii  tt  it 


0,  I,  0 0 1 9 0 0 1 9 9 0 0 0,  0 0 , 0 0 0 0 0 


1 1 I I 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 l 1 1 1 1 


ill  immimmU  aimi 


immmmimmmi! 


OMO 


ill) 
7 2 2 2 
j 3 3 3 
4 4 4 4 
55  S 5 
MII 
7 7 7 7 
Mil 
MM 
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: 11 11  M tt  1'  i V 


0000600000000000 


,,1,111111111111 
2222222222222222 
3 3 , 3 3 3 3 3 3 3 3 3 3 3 3 3 
4444444444444444 
5555555555555555 

Mimimmm 

I 7 ! I 7 7 I 7 7 7 7 7 7 7 7 7 

11,1113131331111 

MMIMimillll 

" It  1 •’  11  U tt  II  II  U 11  II  II  11  11  I. 


MM, 

itmiiti 

11,1 

2 2 2 ? t 

3 3 3 3 1 

4 4 •'  it 

5 5 5 5 5 

OHIO 

7 7 7 7 7 

III  13 

mu 

n n 7!  74  k ■? 
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Input  Data  on  Card  Number  Sixteen 

Step  17.  Since  the  specific  weight  of  the  container  is  0.0017  lb/in. ^ 
and  the  container  material  cost  is  0.  00222  $/in.^.  Input 
Data  Card  Number  Sixteen  would  look  like  the  following: 


I 111  MM 

1 I 1 < I I I ■ I I !■  ' 

in  1 1 1 1 1 n i 


222 
3 3 
444 
555 
Iff 
1 1 1 
; j 

339 


2 2 2 2 2 2 
3 3 3 3 3 3 
44444444 
55555555 
I I t f E S I I 
1111111 
3 331113 
93399999 


22222222222 
3333333333 
4444444444 

5 5 5 5 3 5 5 1 5 5 

6 i f 6 0 : 5 E 5 E 
1111111111 
333 3323333 
9199999939 
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1109999119111111 
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2222222222 
3333333333 
4444444(34 
5555555555 
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1111111111 
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9995999999 


2 2 2 2 

3 3 3 3 

4 4 4 4 
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6 5 5 j 
1111 
tiii 
9 9 9 9 
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Input  Data  on  Card  Number  Seventeen 
Step  18.  There  is  1 item. 

ITEM  = I 


Step  19. 

The  item  weighs  100  lb. 

WI  = 100  (lb) 

Step  20. 

The  second  largest  length  is  12  inches 

XL  = 12  (in.) 

Step  21. 

The  shortest  length  is  12  inches. 

YL  = 12  (in.) 

Step  22. 

The  longest  length  is  24  inches. 

ZL  = 24  (in.) 

Step  23.  There  are  4 different  percent  damage  allowable  cases. 
NPCUT  = 4 
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Input  Data  Card  Number  Seventeen  would  look  like  the  following 


i v • I o r i o « o 1 1 e o o o « c e on q c « e p e g m e * c » e c t m s e c o a o o e i o # b o c d o o « d « o o o o o o o 8 e d i ii n » 
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Input  Data  on  Cards  Numbers  Eighteen  through  Twenty-Ore 


Step  24 
thru 

Step  26  The  four  different  percent  damage  allowable  cases  are: 


Fragility  Percent  Damage  Repair  Cost 

(g)  (%)  ($) 


50. 

0. 

0 

60. 

5. 

5.  00 

65. 

20. 

10. 00 

70. 

80. 

15,  GO 

Input  Data  Cards  Numbers  Eighteen  through  Twenty- One 
would  look  like  the  following: 
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DOM  IX 


Itl  till 

1 t 1 1 1 1 

nmi 

1 9 9 5 1 1 9 

1 1 1 11 11  ;!  11 
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11  11  i.  <:  11  n 

111111 

3 2 2 2 2 2 

222  2 2 2 2 

222222 

334333 

3333334 

3 3 2 3 3 3 

4 4 4 4 4 4 

4 4 4 4 4 4 4 

4 4 * 4 4 4 

5 5 5 5 5 5 

5555555 

5 5 5 5 5 5 

HUM 

((Mill 
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J.  Source  Program  and  Data  File  Change  Procedures 

The  documentation  for  the  basic  procedures  to  change  the  com- 
puter resident  object  program  for  OPPACK  or  to  change  the  computer 
resident  data  files  is  in: 

NLABS  U-1106  COMPUTER  FACILITY 
USERS  GUIDE 

Any  modifications  to  an/  jr  all  of  the  OPT\CK  subroutines  should  be 
made  not  only  to  the  Source  Program  disk  file  (i.  e. , OPPACK.  , which 
contains  OPPACK.  MAIN,  OPPACK.  TEMPEV,  OPPACK.  DAMALW, 
OPPACK.  CDPRO,  OPPACK.  DHGHT,  OPPACK.  COSTMT,  OPPACK. 
MINCOS,  OPPACK.  SHOCKE,  OPPACK.  VIBRTN,  OPPACK.  LAGINT, 
and  OPPACK,  FLAGR)  but  to  the  Source  Program  card  file.  After 
changes  have  been  made  to  the  Source  Program  disk  file,  the  listing 
shown  in  Appendix  J should  be  used  to  create  the  object  program  on  the 
disk  file. 

Any  modifications  to  the  materials  data  file  on  disk  can  be  made 
either  by  using  SCALE  and  TDATAF  programs  or  by  using  the  disk  file 


179 


edit  procedures  in  the  i\ LABS  U 1106  Cc  .*.r>  ER  I.-vCiL-I'i  . SLR3 
GUIDE,  Since  the  programs  SCALE  and  TDATAF  vere  u^ed  to  generate 
much  of  the  estimated  data  information,  it  would  be  appropriate  to  use 
the  file  edit  procedures  in  the  USERS  GUIDE  to  change  the  materials 
da^a  as  they  become  available. 
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in.  summary 


The  initial  development  of  a Computer  Aided  Design  (CAD)  pro- 
gram (designated  as,  OPPACK)  for  package  cushioning  has  been  done. 

The  mathematical  algorithms  were  computer- coded  and  the  available 
materials  data  cataloged. 

Since  Natick  Laboratories  does  not  have  fragility  criteria  data 
available,  SwRI  has  set  forth  the  assumptions  and  methods  for  describing 
the  computer  program  fragility  data  input  requirements.  Also,  SwRI 
constructed  artificial  shock,  vibration,  and  temperature  environments 
in  statistical  form.  At  some  point,  Natick  Laboratories  may  be  able  to 
provide  information  about  shock,  vibration,  and  temperature  environments. 

The  assumptions  for  the  CAD  program  have  been  stated  in  this 
report.  This  report  and  the  CAD  program  provide  the  basis  and  neces- 
sary starting  point  in  a building -block  approach  to  the  refinement  and 
enhancement  of  this  CAD  program  for  package  cushioning. 
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APPENDIX  A 


TEST,  SUBROUTINE  LAGINT,  FUNCTION  FLAGR 


To  debug  and  test  the  LAGINT  subroutine  and  the  FLAGR  Junction, 
digi.al  data  were  taken  from  the  peak  acceleration  versus  static  stress 
curves  shown  in  Figure  A-l. 

For  a urethane  foam,  the  tabulated  input  data  are  shown  in  Table 
A I,  The  actual  computer  printout  is  shown  in  Table  A-II.  The  tabulated 
in*e ; polafed  and  extrapolated  output  data  are  shown  in  Table  A-III.  As 
would  be  expected,  the  interpolated  output  data  are  very  good  and  the  ex- 
trapolated output  data  are  less  accurate,  dependent  upon  how  the  data 
changes  beyond  the  tabulated  input  data;  the  basis  for  this  statement  is  a 
comparison  of  Peak  Acceleration  (g)  dat..  (Table  AIII)  the  the  Pv.ak 
Acceleration  from  Figure  A-l,  It  is  anticipated  that  the  LAGINT  sub- 
routine will  only  be  used  for  interpolation  of  tabulated  data;  however,  it. 
was  desirable  to  design  for  the  possibility  of  extrapolation,  in  case  it  is 
needed  later, 

Copiec  of  the  program  (i.  e.  , TEST),  the  subr  outine  LAGINT,  and 
the  function,  FLAGR,  are  shown  in  Tables  A- IV,  A-V,  and  A-  VI. 

TABLE  A-I.  - URETHANE  FOAM  INPUT  DATA 


Static  Stress 
W/A 
(psi) 


0,  04 


5 in. thick 


4 in. thick  3 in, thick 


2 in. thick 


0,  07 
0.  09 
0.  14 
0,  16 
0,  18 
0,20 
0,  60 
0,  80 


PEAK  AC CEL  ERA 


FIGURE  A-l.  Gm-W/A  Curve*  for  Urethane  Foam  (Polyester 
Type,  Large  Celled,  4.0  pcf)  for  a 30-inch 
Drop  Height. 
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FUNCTION  VALUES 

x v = i.oonoE-oi 

function  values 

X Vs  l.OOOOE-Ol 


3. 7802F+01 
V Vs  3.2000E  + 00 
b. lbszE+ni 
TVs  2.0000E+00 
H.13H3EF01 
YVs  3.0000E+00 
3. 722HE  + 01 
yvs  H.aonoE+oo 
3.23H3E+01 
YVs  5.0000E+00 
2 . 983bE  + 0 1 
YVs  S.5000E+00 
2 . 8000E+0 1 
YVs  3.f)D0nE  + 00 
. 2000E  + 01 
YV=  3.0000E+00 
l.OSO-h  + 05 
YVs  3.0000E+00 
^.SOOnE+Ol 
YV=  ‘F.OOOOE  + OO 
8.8000E+01 
YVS  l.OOOOE+nO 
8.b37LE+01 
yvs  i.ooooE+nn 
8.H371E+01 
Y Vs  1 . QOOOE+OO 


Z Vs  o. 

z Vs  n. 

Z Vs  o. 
ZVs  o. 

z vs  n. 
zvs  o. 

ZVS  n. 
7Vs  o. 
zvs  n. 
zvs  n. 
zvs  n. 
zvs  n. 

ZVS  o. 


TABLE  A- II.  OUTPUT  DATA 
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000003 

000003 

000003 

000003 

00000b 

000011 

000021 

000011 

00005b 

000101 

000105 

000105 

000110 

000110 

000113 

000113 

ooon ; 

000133 

000133 

000133 

000131 

000131 

00013b 


PROGRAM  TEST (INPUT, OUTPUT, TAPE  is  I NPUT,t A PEasOUTPUT) 
OJMFN8ION  X(20),Y(20),Z(2Q),TAB(20,20,20),F(20) 
COMMON  /N/  NZ,N' ,NX,YV,XV,ZV 
NAMELIST  /NX YZ/  NX, NY, NZ, XV, YV, ZV 
READ(1,NXYZ) 

WRITE(2»NXYZ) 

READ  1000, (X(I), Icl,NX) 

IF ( NY. GT. 1)READ  1000 , ( Y ( I ) , Isl , NY ) 

IF (NZ.GT.  DREAD  1000,  (Z(  I)  , I*1,NZ) 

READ  1000,  (((T  ABO,  J , K)  , 1*1 , NX  ) , J*1 ,NY) , K*1 , NZ) 

GO  TO  20 
10  CONTINUE 

IF (EOF , D R9R9, 15 
15  CONTINUE 

RE AD( 1 , NX YZ ) 

20  CONTINUE 

CALL  LAGINT(TAB,Z, Y,X,FV,F) 

PRINT  2000, FV, XV, YV, ZV 
1000  FORMAT (10F8.0) 

2000  F0RMAT(1H  2X,*FUNCTI0N  VALUE*  *E12.1,/, 

1 3X,*XV**El2.i,2X,*YV**El2.1,2X,*ZV**El2.1,) 

GO  TO  10 
R999  CONTINUE 
STOP 
END 


TABLE  A-I V,  MAIN  PROGRAM.  TEST 
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unooii 

oooon 

OOOOll 

000013 

000014 

000015 

00001b 

000032 

000044 

000050 

000051 

000051 

000053 

000055 

00005b 

000073 

000073 

000075 

00007b 

000107 

000117 

000121 

000122 

00012c 

000124 

000133 

000133 

000142 

000143 


C 

C 

C 

C 

C 

c 

c 

c 

c 

c 

c 

c 

c 

c 


c 

c 


c 


c 


c 


1 


5 

10 


subroutine  lagintu, alf, beta, gam  *.  n 
NPTSG  — — NUMBER  OF  ROWS  IN  INPUT  TABLE 
NPTSB  — — NUMBER  OF  COLUMNS  IN  INPUT  TABLE 
NPTSA  — — NUMBER  OF  X-Y  PLANES  IN  INPUT  TABLE 

XB  - — HORIZONTAL  ARGUMENT 

rG  VERTICAL  ARGUMENT 

ZA DEPTH 

VAL INTERPOLATED  VALUE 

ALF(NPISA)  ---  VECTOR  OF  INDEPENDENT  VARIABLES 
BE TA(NPTSb)— - VECTOR  OF  INDEPENDENT  VARIABLES 
GAM(NPTSG)  VECTOR  OF  INDEPENDENT  VARIABLES 


A(NPTSG, NPTSB, NPTSA)  ----  INPUT  TABLE 
IF  NPTSA  NOT  EO  TO  1 INPUT  TABLE  IS  3-D 
IF  NPTSB  NE  1 AND  NPTSA  EG  l TABLE  IS  2 - D 
IF  NPTSB  EQ  1 AND  NPTSA  EQ  1 TABLE  IS  1 - D 
DIMENSION  A(20,20,?1),6(20,20),F(1),ALF(1), 
BETA(1),GAM(1) 

COMMON  /N/  NPTSA,  NPTSB , NPTSG, XB, YG, ZA 

CHECK  FOR  THREE  DIMENSIONS 

IF(NPTSA.EQ.1)G0  TO  100 

SOLVE  THREE  DIMENSIONAL  CASE 

DO  10  1*1, NPTSG 

DO  10  Jsl, NPTSB 

DO  5 K*l, NPTSA 

F(K)  = A ( I , J, K ) 

8(1, J)  * FLAGR(NPTSA,ALF,F,ZA) 

CONTINUE 


GO  TO  130 

CHECK  FOR  TWO  DIMENSIONS 
100  CONTINUE 

IF(NPTSB.EQ.1)G0  TO  200 
DO  110  Isl, NPTSG 
DO  110  J = l, NPTSB 
110  B(I,J)sA(I,J,l) 

SOLVE  TWO  OIMENSIONAL  CASE 
120  CONTINUE 

DO  150  1*1, NPTSG 

DO  140  J*l, NPTSB 
140  F ( J ) * B( I , J) 

B(I,1)*FLAGR( NPTSB, BE TA,F,XB) 
150  CONTINUE 

GO  TO  220 

SOLVE  ONE  DIMENSIONAL  CASE 
200  CONTINUE 

DO  210  1*1, NPTSG 

210  B ( I , 1 ) = A(I,l,i) 

220  CONTINUE 

VAL  = FLAGR( NPTSG, GAM, B,YG) 

RETURN 

END 


VERTICAL 

HORIZONTAL 

DEPTH 


TABLE  A-V.  SUBROUTINE,  LAGINT 
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000007 

000007 

000010 

000011 

00001* 

00011b 

000051 

000051 

000055 

000030 

000031 

OOC  033 
00003b 
0.100*0 
P000*5 
0000** 
0000*5 
0000*7 
000050 
000057 
OOOObl 
0 0 0 0 b 3 
OOOObS 
0000b  7 
000071 
000075 
000077 

000101 

000101 

oumo3 

000105 
000107 
000110 
000115 
000113 
000155 
000) 5* 
00015b 
000130 
000135 
00013* 
0001*0 
00  0 11*  5 
0001** 
0001*5 
00  01  * b 
0 0 0 1 * b 
000150 
OOO’.SO 
00G155 
00C155 


C 


500 

510 


0 


530 

300 

310 

C 

350 


330 

*00 

*10 

500 

bOO 


FUNCTION  FLAGR(NPTS,XIK»F,XK) 
DIMENSION  XIK(l),F(l),w(3) 
LAGRANGE  INTERPOLATING  FUNCTION 
00  500  Isl,NPT9 

IT  = I 


IF(XK.LE. 

XIK(I) 

) GO 

TO  510 

CONTINUE 

ifcxk.eq. 

XIK(I) 

)G0 

TO  500 

I&C  a 3 

• 

IFUT.LE. 

5)1 GOa 

1 

IF(IT.EQ. 

NPTS) 

IGO 

= 5 

9*0.0 

IF( IGO.EQ 

.5)  GO 

TO 

350 

PARABOLA 

FROM 

THE 

RIGHT 

Ir ( IT.EQ. 

1 ) IT*5 

00  300  1*1,3 

I ARG  = IT-5+1 
WEIGHT  * i. 

00  530  J*l,3 

IF ( J.EQ. I )G0  TO  530 
JARG  s IT  - 5 * J 

HEIGHT  s HEIGHT+((XK-XlK(JARG))/(XIK(lARG)-XIK(JARG))) 

CONTINUE 

W ( I ) * WEIGHT 

CONTINUE 

DO  310  K*1  # 3 

I ARG  * IT  - 5 ♦ K 

B * B ♦ W (K ) *F( I ARG) 

CONTINUE 

IF (IGO.EQ.l)GQ  TO  bOO 

PARABOLA  from  the  left 

CONTINUE 

DO  *00  1*1,3 

I ARG  * IT  - 3 ♦ I 

WEIGHT  a l.o 

DO  330  J«l,3 

IF( J.EQ. I )G0  TO  330 

JARG  * IT  3 ♦ J 

weight  = w[:ight+((xk-xik(jarg))/(xik(Iarg)-xik(Jarg))) 

CONTINUE 
W(I)s  WEIGHT 
CONTINUE 
DO  *10  K*1 , 3 

IARG  * IT  - 3 ♦ K 
B a 8 ♦ H(K)*F(IARG) 

CONTINUE 

IF ( IGO.EQ. 5 ) GO  TO  bOO 
B = B * 0.5 
GO  TO  bOO 
CONTINUE 
B a F ( I T ) 

CONTINUE 
FtAGR  = 9 
RETURN 
END 


TABLE  A - VI.  FUNCTION,  FLAGR 
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